récupéré une variable entre 2 modules

bonjour,

je voudrais récupéré une variable "k" et sa valeur entre 2 modules , une fois ma premiere macro terminée. comment faire

merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim k As Integer
k = 3
 
genre = ""
 
On Error Resume Next
While Worksheets("Entreprises ABC").Cells(k, 5) <> ""
 
If Worksheets("Entreprises ABC").Cells(k, 5).Value = choixsociete And Worksheets("Entreprises ABC").Cells(k, 8).Value = choixcontact Then
 
corpsetatext = Worksheets("Entreprises ABC").Cells(k, 3).Value
typedesociete = Worksheets("Entreprises ABC").Cells(k, 4).Value
End If
 k = k + 1
Wend
On Error GoTo 0