Option Explicit
Sub RapportDons()
Dim TDon(), L As Long, TRés(), Mois As SsGr, Nom As SsGr
TDon = ColUti(Feuil1.[A2:D2], CMin:=4).Value
ReDim TRés(1 To UBound(TDon, 1), 1 To 4)
For L = 1 To UBound(TDon, 1)
TDon(L, 4) = DateSerial(Year(TDon(L, 1)), Month(TDon(L, 1)), 1): Next L
L = 0
For Each Mois In Gigogne(TDon, 4, 2, 1)
TRés(L + 1, 1) = Format(Mois.Id, "mmmm yyyy")
For Each Nom In Mois.Co
L = L + 1
TRés(L, 2) = Nom.Id
TRés(L, 3) = Nom.Total(3)
TRés(L, 4) = CCur(TRés(L, 3) / Nom.Count)
Next Nom, Mois
Feuil1.[I2].Resize(UBound(TRés, 1), 4).Value = TRés
End Sub