Sub SuppressionDesDoublons()
With Feuil1.Rows(2).Resize(Feuil1.Cells(Feuil1.Rows.Count, 1).End(xlUp).Row - 1)
.Sort Key1:=.Columns(3), Order1:=xlAscending, Key2:=.Columns(4), Order2:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
.Sort Key1:=.Columns(1), Order1:=xlAscending, Key2:=.Columns(2), Order2:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
.Columns(10).FormulaR1C1 = "=AND(RC1=R[-1]C1,RC2=R[-1]C2,RC3=R[-1]C3,RC4=R[-1]C4)"
.Columns(9).FormulaR1C1 = "=RC7+IF(R[1]C10,R[1]C9,0)"
.Columns(8).FormulaR1C1 = "=IF(RC10,""Suppr"",RC9)"
.Columns(7).Value = .Columns(8).Value
.Columns(7).SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete
End With
Feuil1.[H:J].Delete
End Sub