Fonction Recherchev mais sous forme de macro

Bonjour,

je reviens encore vers le forum car j'avance peu à peu dans le VBA mais je ne sais pas encore tout faire !!!

En fait j'ai 2 feuilles dans un classeur :

-Feuil1

Colonnes : A et B

A B

1

2

3

4

-Feuil2

A B

1 a

2 b

3 c

4 d

5 e

Donc 2 colonnes par feuille, je voudrais que ça me remplisse automatiquement la colonne B de la Feuil1 en fonction de la Feuil2.

J'utilise d'habitude la fonction RECHERCHEV mais là je voudrais le faire sous forme de macro, car j'utilise d'autres macro...et j'importe souvent des données donc ça serait bien plus pratique

j'ai réussi à faire ca :

mais ca ne fonctionne que pour une ligne : dans le cas suivant la ligne 2.

Mais je voudrais que ca me fasse la même action pour TOUTES les lignes de Feuil1.

Comment faire?

Sub recherchev()
With Sheets("Feuil1")
.Range("B2").Value = WorksheetFunction.VLookup(.Range("A2").Value, Sheets("Feuil2").Range("A1:B8"), 2, False)
End With
End Sub

Il faudrait que ca incrémente à chaque fois le numéro A2 et B2 en A3 et B3 puis A4 et B4, ect...

Merci d'avance.

Bonjour,

A tester :

Sub recherchev()

Dim i As Integer

With Sheets("Feuil1")
    i = 1
    Do While Range("A" & i) <> ""
        Range("B" & i).Value = WorksheetFunction.VLookup(Range("A" & i).Value, Sheets("Feuil2").Range("A1:B8"), 2, False)
        i = i + 1
    Loop
End With

End Sub

Cordialement,

En effet ca fonctionne !!!

Merci de votre réponse si rapide en tout cas =)