Sub Regrouper()
Dim TR(), LR&, Arg1 As SsGr, Arg2 As SsGr, Arg3 As SsGr, Arg4 As SsGr
' ReDim TR(1 To Feuil1.UsedRange.Rows.Count, 1 To 5)
ReDim TR(1 To Feuil1.UsedRange.Rows.Count * 5, 1 To 1)
For Each Arg1 In Gigogne(Feuil1.[A2:E2], 1, 2, 3, 4)
For Each Arg2 In Arg1.Co
For Each Arg3 In Arg2.Co
For Each Arg4 In Arg3.Co
' LR = LR + 1
' TR(LR, 1) = Arg1.Id
' TR(LR, 2) = Arg2.Id
' TR(LR, 3) = Arg3.Id
' TR(LR, 4) = Arg4.Id
' TR(LR, 5) = Arg4.Somme(5)
LR = LR + 1: TR(LR, 1) = Arg1.Id
LR = LR + 1: TR(LR, 1) = Arg2.Id
LR = LR + 1: TR(LR, 1) = Arg3.Id
LR = LR + 1: TR(LR, 1) = Arg4.Id
LR = LR + 1: TR(LR, 1) = Arg4.Somme(5)
Next Arg4, Arg3, Arg2, Arg1
' Feuil1.[A2].Resize(UBound(TR, 1), 5).Value = TR
Feuil1.[G2].Resize(UBound(TR, 1)).Value = TR
End Sub