[C2].FormulaR1C1 = "=VLOOKUP(RC[-2],R[-1]C[-2]:R[1000]C[10],3,0)"
Sub RechercheVm()
Dim p As Range, f As Worksheet
Set f = Sheets("Grille")
Set p = f.Range(f.[A1], f.Cells(Rows.Count, "M").End(3))
[C2] = Application.VLookup([A2], p, 3, 0)
End Sub
Emblématique Staple1600Bonsoir le fil
Une autre écriture possible (tout en VBA, sans formule sur la feuille)
VB:Sub RechercheVm() Dim p As Range, f As Worksheet Set f = Sheets("Grille") Set p = f.Range(f.[A1], f.Cells(Rows.Count, "M").End(3)) [C2] = Application.VLookup([A2], p, 3, 0) End Sub