XL 2013 SommeProd en mode Function

Sub RapportSynthèse()
Dim Données As Collection, LIGNE As SsGroup, FUTUR As SsGroup, BQ As SsGroup, Détail, _
   TotG As Currency, TotFut As Currency, TotBQ As Currency, TotLig As Currency, T(1 To 500, 1 To 4), L As Long
Set Données = GroupOrg(Feuil2.[A2:N2], 10, 11, 9)
For Each FUTUR In Données
   L = L + 1
   T(L, 1) = "Futur=" & FUTUR.Id
   TotFut = 0
   For Each BQ In FUTUR.Contenu
      L = L + 1
      T(L, 2) = "BQ=" & BQ.Id
      TotBQ = 0
      For Each LIGNE In BQ.Contenu
         L = L + 1
         T(L, 3) = LIGNE.Id
         TotLig = 0
         For Each Détail In LIGNE.Contenu
            TotLig = TotLig + Détail(14): Next Détail
         T(L, 4) = TotLig:
         TotBQ = TotBQ + TotLig: Next LIGNE
      If BQ.Count > 1 Then L = L + 1: T(L, 2) = "    — Total BQ=" & BQ.Id: T(L, 4) = TotBQ
      TotFut = TotFut + TotBQ: Next BQ
   If FUTUR.Count > 1 Then L = L + 1: T(L, 1) = "    — Total Futur=" & FUTUR.Id: T(L, 4) = TotFut
   TotG = TotG + TotFut: Next FUTUR
L = L + 1: T(L, 1) = "Total général": T(L, 4) = TotG
Feuil1.[B3].Resize(500, 4).Value = T
End Sub