Sub recopie()
Dim cel As Range, i As Long
Sheets("Feuil1").Select
Application.ScreenUpdating = False
i = 6
For Each cel In Range("B6", [B1000].End(xlUp))
If Not IsEmpty(cel) Then
Cells(i, "I") = ["=VLOOKUP(RC2,Feuil2!R6C1:R9C5,2,0)"]
Cells(i, "J") = ["=VLOOKUP(RC2,Feuil2!R6C1:R9C5,3,0)"]
Cells(i, "K") = ["=VLOOKUP(RC2,Feuil2!R6C1:R9C5,5,0)"]
End If
i = i + 1
Next
Application.ScreenUpdating = True
End Sub