Sub es()
Dim c As Range, a As Variant
With Feuil1
For Each c In .Range("a2", .Cells(Rows.Count, "a").End(xlUp))
With Feuil2
Set a = .[a:d].Find(What:=c.Value, LookIn:=xlValues, LookAt:=xlWhole)
If a Is Nothing Then
Else
c.Offset(0, 1) = a.Offset(0, 1)
End If: End With: Next: End With
End Sub