'On recherche les OA-Line SAP communes entre Step 1 et Open Orders
With Worksheets("Step 1")
'g = OA-Line
Set g = .Range("I" & .Range("I65536").End(xlUp).Row)
End With
With Sheets("Open Orders")
'Plage = OA-Line
Set Plage = .Range("A2:K" & .Range("A65536").End(xlUp).Row)
On Error Resume Next
Do While g.Row > 1
h = WorksheetFunction.VLookup(g, Plage, 10, True)
Set g = .Find(h)
If g = h Then
g(1, 3) = h 'Si trouvé n° PO
Else
g(1, 3) = "" 'Si pas trouvé vide
End If
Set g = g(0, 1) ' Recule d'une ligne
Loop
End With