For i = NbLigneavant + 3 To NbLignemnt + 3 'les valeurs commencent en ligne 4
Cells(i, 1) = Application.VLookup(Cells(i, 54), Worksheets("feuil3").Range("BN:BN"), 1, False) 'info1
Cells(i, 2) = Application.VLookup(Cells(i, 54), Worksheets("feuil3").Range("BN:BO"), 2, False) 'info2
Cells(i, 3) = Application.VLookup(Cells(i, 54), Worksheets("feuil3").Range("BN:BP"), 3, False) 'info3
Cells(i, 4) = Application.VLookup(Cells(i, 54), Worksheets("feuil3").Range("BN:BQ"), 4, False) 'info4
Next i