call procedure (urgent)

Bonjour tout le monde, j'ai 2 procedure

Sub procedure1( )
dim a as long
a=3
call procedure2
msgbox("b=" & b & ".")     ' pareil il connait pas la valeur de b qui est declaré dans la procedure2
End

Sub procedure2( )
dim b as long
b= a +1                ' Ici il connait pas la valeur de a qui est pourtant declaré dans la procedure1
call procedure1
End

en fait quand je declare mon  coef dans une premiere procedure, ma deuxieme ne le reconnait pas.

y a t 'il un moyen pour communiquer entre les 2 procedures. ca parait simple mais j'ai galeré toute la matiné a trouver une solution

Merci d'avance

Merci pour votre aide c'est vrai ça fait pas longtemps que j'ai commencé à programmer en VBA.

bonne apres midi et encore une fois merci

c'est toujours moi, en fait mon vrai probleme est le suivant l'exemple ci dessus etait juste un  exemple pour vous expliquer ce que je veux

j'ai deux procedure et non pas des fonctions et le probleme c'est que le coefficient commun entre les 2 et C.
la premiere : mise_en_place( )
...
Dim C as Long
       C = 5
        Do While Cells(LigneF2, ColonneF2) <> ""
              Sheets("Feuil1").Cells(LigneF1, ColonneF1).Value = Cells(LigneF2,ColonneF2).Value
              LigneF1 = LigneF1 + 1
              ColonneF2 = ColonneF2 + 4
              Call pivot
              C = C + 4
        Loop
 ......

pivot( )
.....
         For i = 1 To n      
                  Sheets("Feuil2").Cells(i, C).Value = x(i)  '(x est calculé auparavant mais c'est pas important dans à savoir)
         Next
.....

Comment je pourrais utiliser la valeur de C declaré dans la procedure mise en place dans la procedure Pivot.

Merci en core une fois

OK Très bien ça marche nickel merci bcp c'est super merci!!!!

"autre petite correction kevin ^^"

C'est plus une simplification qu'une correction Je voulais garder les variables pour bien montrer le principe    Mais je suis évidement tout à fait d'accord
On peut même faire plus court:
Sub procedure1( )
    msgbox "b=" & procedure2(3) & "."
End 

Bonne continuation inge68

j'ai supprimé a par réflexe
la correction était dans le call

    b = Call procedure2(a)
noté :
   b = procedure2(3)

++ ;)

---

Prenez un instant pour répondre à ce sondage svp