Bonjour, a tester avec un nombre plus conséquent d'information.
Option Base 1
Sub doublon()
Dim a, b(), n%, i%, j%
n = 1
a = Feuil1.[a1].CurrentRegion
Feuil1.[f1].CurrentRegion.Delete shift:=xlUp
ReDim b(UBound(a), 2)
For i = 2 To 10
For j = 2 To 20
If a(i, 1) = a(j, 2) And a(j, 3) > 1 Then
n = n + 1
b(n, 1) = a(i, 1)
b(n, 2) = a(j, 3)
Exit For
End If
Next
Next
Feuil1.[f1].Resize(UBound(b), 2) = b
Feuil1.Range("f1:g1") = Array("Ref2", "Order")
End Sub