Sub sup()
fin = Range("A" & Range("A:A").Rows.Count).End(xlUp).Row
ActiveWorkbook.Worksheets("Feuil2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil2").Sort.SortFields.Add Key:=Range("A2"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil2").Sort
.SetRange Range("A2:B" & fin)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
For i = fin To 3 Step -1
If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 2) = -Cells(i - 1, 2) Then
Cells(i, 1).EntireRow.Delete
Cells(i - 1, 1).EntireRow.Delete
End If
Next i
end sub