Option Explicit
Private Sub Worksheet_Activate()
Dim Empl As SsGr, TRés(), L As Long
ReDim TRés(1 To Feuil1.UsedRange.Rows.Count, 1 To 2)
For Each Empl In Gigogne(Feuil1.[A6], 1)
L = L + 1
TRés(L, 1) = Empl.Id
TRés(L, 2) = Empl.Total(2)
Next Empl
Me.[A6].Resize(UBound(TRés, 1), 2).Value = TRés
End Sub