VBA " Recherche v" avec nbre de cellules variable

[kenzo1245]

Bonjour, je voudrais placer un "recherche v" pour la plage ("H12:I29") par exemple en VBA pour ce bout de code qui fonctionne bien que j'ai trouvé sur le net., ou en faire un autre.
la difficulté c'est que le nombre de cellules non vide est variable, et il faudrait le même nombre pour les
"recherche v" .
Merci.

Sub essai()

Sheets("Feuil2").Activate
Set Plg = Range("G2:G40")

For Each Cel In Plg

If Cel.Formula <> "" Then
Sheets("Feuil1").Activate
Range("E12").Offset(Cmpt).Formula = Cel
Cmpt = Cmpt + 1
Else: End If
Next Cel

End Sub