Passage d'un variable

Bonjour

Certaines lignes de mon code sont repetitifs
je voudrais creer une macro pour ces lignes, le probleme est que je dois me servir de variable(s) initialise dans une autre macro
On m' a deja dionne une solution mais je n'arrive pas ala mettre en pratique


Num = Num + 1 la variable Num est celle que je dois recuperer
While changement = False
If Range('B' & lig).Value = 'daemon' Then
Rows(lig).Select la variable lig est celle que je dois recuperer
Selection.Copy
Range('A' & Num).Select
ActiveSheet.Paste
Rows(lig).Select
Selection.Delete
Rows(lig).Select
ElseIf Range('B' & lig).Value = 'bin' Then

Et je voudrai creer une macro avec ces lignes

Sub Classement()
Rows(lig).Select
Selection.Copy
Range('A' & Num).Select
ActiveSheet.Paste
Rows(lig).Select
Selection.Delete
Rows(lig).Select
End sub

Comment puis je faire pour obtenir ce resultat
Num = Num + 1 la variable Num est celle que je dois recuperer
While changement = False
If Range('B' & lig).Value = 'daemon' Then
Classement
ElseIf Range('B' & lig).Value = 'bin' Then

Merci pour votre aide
Cdlt
Fadiese :sick: