Sub recherchev()
ref = "C:\Documents and Settings\XXX.YYY\Bureau\ref13.xlsm" 'chemin du fichier
ref2 = "ref13.xlsm" 'nom du fichier
Application.DisplayAlerts = False
Workbooks.Open (ref)
ThisWorkbook.Activate
For i = 3 To Range("a65000").End(xlUp).Row
For j = 70 To 87
Cells(i, j).Value = Application.VLookup(Cells(i, 43).Value, Workbooks(ref2).Sheets(Cells(2, j)).Range("a:b").CurrentRegion, 2, False)
Next
Next
Workbooks(ref2).Close
Application.DisplayAlerts = True
End Sub