Sub CompilTab()
Dim Rubrique As SsGr, Détail, T(1 To 100, 1 To 8), L As Long, C As Long
For Each Rubrique In Gigogne(TableUnique(PlgUti(Feuil2.[A2]), PlgUti(Feuil3.[A2])), 1)
L = L + 1: T(L, 1) = Rubrique.Id
For Each Détail In Rubrique.Co
T(L, 2) = Détail(2)
C = Détail(0) * 3 + 3
T(L, C) = T(L, C) + Détail(3)
T(L, C + 1) = T(L, C + 1) + Détail(4)
T(L, C + 2) = T(L, C + 2) + Détail(5): Next Détail, Rubrique
Feuil1.[A2].Resize(100, 8).Value = T
End Sub