Sub Regroup()
Dim TE(), LE&, TS(), DPT As SsGr, EQPp As SsGr, EQPx As SsGr, LS&, SIT As SsGr, Détail, C As Long
TE = ColUti(Feuil2.[A5:E5]).Value
ReDim TS(1 To UBound(TE, 1), 1 To 1)
For LE = 1 To UBound(TE, 1): TE(LE, 5) = Left$(TE(LE, 3), 5): Next LE
For Each DPT In Gigogne(TE, 1, 5)
For Each EQPp In DPT.Co
TS(LS + 1, 1) = EQPp.Somme(4)
For Each Détail In EQPp.Co
LS = LS + 1
Next Détail, EQPp, DPT
Feuil2.[E5].Resize(UBound(TS, 1), 1).Value = TS
End Sub