Bonjour,
Merci. Je vais essayer çà.
J'avais trouvé une solution :
Do Until Range("B3").value<>Range("B2").Value
If Range("B3").value=Range("B2").value Then
Range("A3:D3").select
Selection.Delete Shift:=xlUp
End If
Loop
Et ainsi de suite, mais cela était parfois un peu long en fonction du nombre d'expéditions dans mon bordereau.