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