VBA zoho sheet ".Find" and "for each next"

2 sheets :

first sheet got a list of names in column "a"
second sheet got a list of more names with a value in cell B I need to bring back on the first sheet in regard of the matching name (if the name has been found)

I got an error on the ".Find"

if not, any idea to solve that issue ?

thanks for help

Sub getvalue()
'
For Each cel In Sheets("Feuille1").Range("A1:A100")
With Sheets("Feuille2").Range("A:A")
    Set trouve = .Find(cel.Value, LookIn:=xlValues, lookat:=xlWhole)
    If Not trouve Is Nothing Then
      .Cells(cel.Row, 2) = Sheets("Feuille2").Cells(trouve.Row, 2)
    End If
End With
Next

End Sub