Citation :
Sub copie02()
Sheets("Feuil1" ).Activate
Range("a1" ).Select
For i = 0 To ActiveCell.End(xlDown).Row
ref = ActiveCell.Offset(i, 0).Value
On Error Resume Next
ActiveCell.Offset(i, 1).Value = WorksheetFunction.VLookup(ref, Sheets("Feuil2" ).Range("a1:b500" ), 2, 0)
Next i
End Sub
|