Sub Recap2()
Dim T(), L As Long, C As Long, GrpArt As SsGr, Zone As SsGr, Ville As SsGr, Client As SsGr, Détail
ReDim T(1 To 10000, 1 To 6)
For C = 1 To 3: T(1, C + 3) = "Mois " & C: Next C
L = 1
For Each GrpArt In Gigogne(Feuil1.[A2:H2].Resize([A1000000].End(xlUp).Row - 1), 3, 6, 5)
L = L + 1: T(L, 1) = "Groupe d'articles " & GrpArt.Id
For Each Zone In GrpArt.Co
L = L + 1: T(L, 2) = "Zone " & Zone.Id
For Each Ville In Zone.Co
L = L + 1: T(L, 3) = Ville.Id
For Each Détail In Ville.Co
C = Détail(8) + 3: T(L, C) = T(L, C) + Détail(7)
Next Détail, Ville, Zone, GrpArt
Feuil1.[L1:Q10000].Value = T
End Sub