VBA - Recherche correspondance pour chaque cellule d'une plage

Sub Chercher_cat_statbleue_pour_hierarchie()
Range ("A1:A10")
For Each cell In Range("A1:A10")
Nom = cell.Value
 With Sheets("KE36")
     Set c = .Columns("A:AKX").Find(Nom)
     If Not c Is Nothing Then
         Sheets("Listing").Range("B" & cell.Row).Value = c.Value
     Else
         MsgBox "cette hiérarchie-produit n'a pas été trouvée"
     End If
 End With
 Next cell

Sub Chercher_cat_statbleue_pour_hierarchie()
Dim Cel As Range, C As Range, Plg As Range
Dim DerLig As Long, DerCol As Long
With Sheets("KE36")
    DerLig = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
    DerCol = .Cells.Find("*", , , , xlByColumns, xlPrevious).Column
    Set Plg = .Range("A1", .Cells(DerLig, DerCol))
End With
For Each Cel In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    Set C = Plg.Find(Cel.Value, LookAt:=xlWhole)
    If Not C Is Nothing Then
        Cel.Offset(, 1) = Plg(1, C.Column)
    Else
        Cel.Offset(, 1) = "cette hiérarchie-produit n'a pas été trouvée"
    End If
Next Cel
End Sub