Private Sub Worksheet_Activate()
Dim Données As Collection, TS(), EOTP As SsGroup, LS As Long, Détail, Plg As Range
Rem. —— Première Partie
Set Données = GroupOrg(PlgUti(Feuil01.[A8]), 12)
ReDim TS(1 To Données.Count, 1 To 2)
For Each EOTP In Données
LS = LS + 1
TS(LS, 1) = EOTP.Id
For Each Détail In EOTP.Contenu
TS(LS, 2) = TS(LS, 2) + Détail(10)
Next Détail
TS(LS, 2) = Int(TS(LS, 2) * 100 + 0.5) / 100
If TS(LS, 2) = 0 Then LS = LS - 1 ' Ligne finalement non créée si = 0
Next EOTP
ValPlgAju(Me.[RécapMatos], LS) = TS
Me.Rows(8).Resize(5000).RowHeight = Me.Rows(7).RowHeight
Me.[RécapMatos].Cells(LS + 1, 2).Resize(, 1).FormulaR1C1 = "=SUM(R7C:R[-1]C)"
With LignesAjustées(Feuil03.Rows(8), LS)
.Columns("L").Value = WorksheetFunction.Index(TS, 0, 1)
.Columns("H").Value = WorksheetFunction.Index(TS, 0, 2)
.Columns("A").FormulaR1C1 = "=10*ROW()-70"
.Columns("A").Value = .Columns("A").Value
End With
End Sub