Sub Résumé()
Dim Poste As SsGr, L As Long, T(1 To 1000, 1 To 4), Détail
For Each Poste In Gigogne(Workbooks("export.XLSX").Worksheets("Sheet1").Rows(2), 1)
L = L + 1
T(L, 1) = Poste.Id
For Each Détail In Poste.Co
T(L, 2) = T(L, 2) + Détail(12)
T(L, 3) = T(L, 3) + Détail(9)
Next Détail
T(L, 4) = Poste.Count
Next Poste
Workbooks.Add
ActiveSheet.[A3:D1002].Value = T
End Sub