Bonjour,
pour ajouter à ce que disent avec raison mes petits camarades, il y a aussi ceci
(nommer les colonnes de la feuille "base" avant par depuis A1 --> CTRL* et puis CTRL-Maj provi-F3)
Sub SousTotal()
Dim Ws1, Ws2 As Worksheet
Dim C
Set Ws2 = Sheets("base")
Set Ws1 = Sheets("macros")
Set d = CreateObject("Scripting.Dictionary")
For Each C In [flux] "flux doit être une zone nommée !!!
d(C.Value) = d(C.Value) + C.Offset(, 2).Value
Next C
Ws1.[a25].Resize(d.Count, 1) = Application.Transpose(d.keys)
Ws1.[b25].Resize(d.Count, 1) = Application.Transpose(d.items)
End Sub