Afficher dans une autre feuille la valeur provenant eventuellement d'une liste

Sub Macro1()
Dim dest As Range 'déclare la variable dest (DESTination)
Dim sour As Range 'déclare la variable sour (SOURce)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim r As Range 'déclare la variable r (Recherche)
With Sheets("Feuil1") 'définit la variable sour (à adapter)
Set sour = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
With Sheets("Feuil2") 'définit la variable dest (à adapter)
Set dest = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
For Each cel In sour 'boucle sur toutes les cellule CEL de la source
    Set r = dest.Find(cel.Value, , xlValues, xlWhole) 'définit la variable r
    'condition : si il existe au moins une occurrence de r dans la destination,
    'récupère la valeur de la cellule adjacente de la source
    If Not r Is Nothing Then r.Offset(0, 1).Value = cel.Offset(0, 1).Value
Next cel 'prochaine cellule de la source
End Sub