Sub Regroupe()
Dim Dico, T, TT, i As Long
'D = Timer
Set Dico = CreateObject("Scripting.Dictionary")
With Worksheets("Feuil1")
T = .Range("A2:B" & .Range("A" & Rows.Count).End(xlUp).Row)
For i = LBound(T, 1) To UBound(T, 1)
Dico(T(i, 1)) = Dico(T(i, 1)) + T(i, 2)
Next
' si on veut également le cumul par code activer les deux lignes en commentaire et désactiver la suivante
'TT = Application.Transpose(Array(Dico.keys, Dico.Items))
'.Range("F3").Resize(UBound(TT, 1), UBound(TT, 2)) = TT
.Range("F3").Resize(Dico.Count, 1) = Application.Transpose(Dico.keys)
End With
'MsgBox Timer - D
End Sub