=RECHERCHE(A7;table!$B$6:$B$18;table!$C$6:$C$18)
Sub Intitulé()
Dim cel As Range, valeur As Variant
[B7:B65536].ClearContents
For Each cel In Range([A7], [A65536].End(xlUp))
valeur = Application.VLookup(cel, Sheets("table").[B:C], 2, 0)
If Not IsError(valeur) Then cel.Offset(, 1) = valeur
Next
End Sub
Sub Vlookup()
Dim cel As Range, valeur As Variant
[B7:B65536].ClearContents
For Each cel In Range([A7], [A65536].End(xlUp))
valeur = Application.Vlookup(cel, Workbooks("C:\Docqual\Doc\Répertoiredetravail\Table_test_Vlookup").Sheets("table").[B:C], 2, 0)
If Not IsError(valeur) Then cel.Offset(, 1) = valeur
Next
End Sub
valeur = Application.VLookup(cel,[COLOR="Red"] [tablo][/COLOR], 2, 0)
Sub Intitulé()
Dim cel As Range
[B7:B65536].ClearContents
For Each cel In Range([A7], [A65536].End(xlUp))
cel.Offset(, 1).FormulaR1C1 = "=VLOOKUP(RC[-1],tablo,2,0)"
cel.Offset(, 1).Value = IIf(IsError(cel.Offset(, 1)), "", cel.Offset(, 1))
Next
End Sub