Option Explicit
Private Sub Workbook_Open()
Dim Cls As Workbook, Données As Collection, Poste As SsGr, L As Long, T(), Détail
Set Cls = Workbooks.Open(Filename:=ThisWorkbook.Path & "\Export.xlsx")
Set Données = Gigogne(Cls.Worksheets("Sheet1").Rows(2), 1)
Cls.Close False
ReDim T(1 To Données.Count, 1 To 4)
For Each Poste In Données
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
Feuil1.[A2:D1000000].Value = Empty
Feuil1.[A2:D2].Resize(L).Value = T
End Sub