Option Explicit
Sub Max()
Dim DateRéf As Date, Nom As SsGr, Détail, T(), L&, TX() As Long, N&, TR(), LR&
DateRéf = Date
ReDim T(1 To 50, 1 To 2)
For Each Nom In Gigogne(Feuil1, 2)
L = L + 1: T(L, 1) = Nom.Id
For Each Détail In Nom.Co
If Détail(8) <= DateRéf Then T(L, 2) = T(L, 2) + Int(Détail(10) * 100 + 0.5) / 100
Next Détail, Nom
Feuil1.[O3].Resize(50, 2).Value = T
IndexerParFusions TX, T, -2
ReDim TR(1 To 4, 1 To 2)
For N = 1 To 4
LR = LR + 1: L = TX(LR)
TR(LR, 1) = T(L, 2): TR(LR, 2) = T(L, 1): Next N
Feuil1.[R3:S6].Value = TR
End Sub