Public Sub toto()
'La bibliothèque Microsoft Scripting Runtime
' doit être coché dans Outils\Références...
Dim data As New Dictionary
Dim tablo, i As Integer
tablo = Range("a2:b" & Range("a65536").End(xlUp).Row)
For i = 1 To UBound(tablo)
data.Item(tablo(i, 1)) = data.Item(tablo(i, 1)) + tablo(i, 2)
Next i
Range("H1", Cells(data.Count, "H")) = Application.Transpose(data.Items)
Range("G1", Cells(data.Count, "G")) = Application.Transpose(data.Keys)
End Sub