Sub supDoublonsTotal()
With Sheets("Feuil2")
Dim L_fin As Integer
L_fin = Range("A65536").End(xlUp).Row
ligne = 1
Range(Cells(1, 1), Cells(L_fin, 1)).Sort Key1:=Cells(L_fin, 1), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Do While Cells(ligne, 1) <> ""
If Cells(ligne, 1) = Cells(ligne + 1, 1) Then
Cells(ligne, 2) = Cells(ligne, 2) + Cells(ligne + 1, 2)
Rows(ligne + 1).Delete
Else
ligne = ligne + 1
End If
Loop
End With
End Sub