For x = 3 To Worksheets("Feuil2").Range("A65536").End(xlUp).Row
Worksheets("Feuil2").Range("f" & x).Value = Application.WorksheetFunction.VLookup(Worksheets("Feuil2").Range("A" & x).Value, Sheets("inv").Columns("b:f"), 4, False)
Worksheets("Feuil2").Range("f" & x).Value = Application.WorksheetFunction.VLookup(Worksheets("Feuil2").Range("A" & x).Value, Sheets("inv").Columns("b:f"), 5, False)
Next