VBA problème recherche V

Sub Suivi_des_PO()
Dim h
Dim c As Range, d As Range
Dim Valeur_Recherche As String
Dim Départ As String
Dim Zone, Zone1, Zone2 As Range, i As Byte

Application.ScreenUpdating = False
 
 
'Affectation de la variable c à la colonne M de la feuille "Step 1"
Set c = Worksheets("Step 1").Range("M" & Worksheets("Step 1").Range("M65536").End(xlUp).Row)
Do While c.Row > 1

  With Worksheets("Open Orders").Range("A2:A" & Worksheets("Open Orders").Range("A65536").End(xlUp).Row)
    Set d = .Find(c)
        If Not d Is Nothing Then
            Départ = d.Address
            
            i = 2
            
            Do
                'n° de ligne
                Do While Not IsEmpty(c(1, i))
                    i = i + 1
                Loop
                c(1, i) = d(1, 5)
                Set d = .FindNext(d)
            Loop While Not d Is Nothing And d.Address <> Départ
             
        End If
  End With
   
Set c = c(0, 1)

Loop

Application.ScreenUpdating = True
End Sub