Sub Récap()
Dim Crit As SsGr, T(), L As Long, Réf As SsGr, RngCbl As Range
Set RngCbl = Feuil1.[A10]
For Each Crit In Gigogne(Feuil2.[A10:H10], 8, 1)
ReDim T(1 To 2 + Crit.Count, 1 To 5): L = 2
T(1, 1) = Crit.Id
T(2, 1) = "Réf": T(2, 2) = "Nom": T(2, 3) = "Nombre d'occurrences": T(2, 4) = "Nombre de réalisée": T(2, 5) = "Delta"
For Each Réf In Crit.Co
L = L + 1
T(L, 1) = Réf.Id
T(L, 2) = Réf.Co(1)(3)
T(L, 3) = Réf.Count
Next Réf
RngCbl.Resize(L, 5).Value = T
Set RngCbl = RngCbl.Offset(, 6): Next Crit
End Sub