Sub RecopieversLeBas()
'Soit la colonne B à recopier vers le bas et la colonne A complète
Range("B2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],BD,3,FALSE)"
Range([B2], [A65536].End(xlUp).Offset(0, 1)).Select
Selection.FillDown
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub