Sub RechercheV()
'
' Macro3 Macro
' Macro enregistrée le 15/11/2011'
'
Sheets("Tableau de Bord").Select
Range("A6").Select
For I = 6 To 65000
x = Range("A" & I).FormulaR1C1 = "=LEFT(RC[-2],2)"
Range("B" & I).FormulaR1C1 = "=VLOOKUP(RC[-1],'x'!R[-5]C[1]:R[28]C[10000],25,0)"
Next
End Sub