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