Copier la formule dans le bas d'un tableau

Bonjour,

J'ai un tableau où j'applique une recherchev.

Cependant le nombre de ligne n'est jamais identique.

Comment je peux faire pour la mettre sur toutes les lignes qui sont remplies ??

voici un exemple de code :

Range("B2").Select

ActiveCell.FormulaR1C1 = "=VLOOKUP(C[-1],Feuil2!C[-1]:C,2,FALSE)"

Selection.AutoFill Destination:=Range("B2:B5")

Range("B2:B5").Select

Merci de votre aide

Bonne journée

Tu peux passer par ceci

Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Range("A1").AutoFill Destination:=Range("A6:A" & DernLigne)

merci pour votre réponse.

Mais je ne suis débutant dans le langage VBA. Votre code je dois le mettre devant mon code ?

Je comprends pas.

Merci pour votre aide

Bonjour

Essaie comme ceci :

With Range("B2")
    .FormulaR1C1 = "=VLOOKUP(C[-1],Feuil2!C[-1]:C,2,FALSE)"
    .AutoFill Destination:=Range("B2:B" & Range("A" & Rows.Count).End(xlUp).Row)
End With

j'ai supposé que la colonne A est toujours remplie comme la colonne B

Cordialement

Ou

 Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Range("B2").Select
 ActiveCell.FormulaR1C1 = "=VLOOKUP(C[-1],Feuil2!C[-1]:C,2,FALSE)"
 Selection.AutoFill Destination:=Range("B2:B" & DernLigne)
 Range("B2:B" & DernLigne).Select

Super cela fonctionne.

merci

bonne journée