Sub SupprDoublons()
Dim der&
Application.ScreenUpdating = False
With Sheets("Feuil1")
If .FilterMode Then .ShowAllData
Range("a:c").Copy Range("e:g")
der = .Cells(.Rows.Count, "a").End(xlUp).Row
On Error Resume Next
Range("g1").Resize(der).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=""[ligne]""&ROW()"
Range("g1").Resize(der) = Range("g1").Resize(der).Value
Range("e1:g1").Resize(der).RemoveDuplicates Columns:=3, Header:=xlYes
Range("e1:g1").Resize(der).Replace what:="[ligne]*", replacement:=""
End With
End Sub