Boucle Vlookup variable

Bonjour,

je ne parviens pas à coder ceci:

Dans ma feuille(4) je veux remplacer le contenu de ma colonne B (de B3 jusqu'à la dernière ligne B existante) par le résultat d'un RechercheV:

Sub modif()
Sheets(4).Activate

LaDerniere = Range("B3").End(xlDown)
z = Range("LaDerniere").Row

Dim i As Integer

For i = 3 To z

   Range("B" & i).Formula = Application.WorksheetFunction.VLookup(Range("A" & i).Formula, Sheets(2).Range("$H$1:$J$10"), 2, 0)
   Next i

End Sub

Merci pour vos conseils!

Bonjour

Sans fichier pas évident de bien comprendre mais je propose 2 solutions

Solution1

Sub modif()
Dim Z As Long, I As Long

  Sheets(4).Activate

  Z = Range("B3").End(xlDown).Row
  For I = 3 To Z
    Range("B" & I).Formula = "=VLookup(A" & I & ",'" & Sheets(2).Name & "'!$H$1:$J$10, 2, 0)"
  Next I
End Sub

Solution 2

Sub modif2()
Dim Z As Long

  Sheets(4).Activate

  Z = Range("B3").End(xlDown).Row

  Range("B3:B" & Z).Formula = "=VLookup(A3,'" & Sheets(2).Name & "'!$H$1:$J$10, 2, 0)"
End Sub

Bonjour Banzai64,

merci beaucoup pour ta réponse rapide.

la 2ème solution à l'air de fonctionner à merveille.

Bonne soirée