Private Sub Worksheet_Activate()
Dim Plage As Range, TSyn(), TAp1(), Article As SsGroup, Emplac As SsGroup, _
Détail, L As Long, Ap1 As Double
Set Plage = ColUti(Feuil2.[A2:C2])
ReDim TSyn(1 To 20000, 1 To 2), TAp1(1 To Plage.Rows.Count, 1 To 1)
Plage.Columns(3).FormulaR1C1 = "=ROW()-1"
For Each Article In GroupOrg(Plage, 2, 1)
L = L + 1
TSyn(L, 1) = Article.Id
TSyn(L, 2) = Article.Count
For Each Emplac In Article.Contenu
Ap1 = 1: For Each Détail In Emplac.Contenu
TAp1(Détail(3), 1) = Ap1: Ap1 = 0: Next Détail, Emplac, Article
Me.[B3].Resize(20000, 2).Value = TSyn
Plage.Columns(3).Value = TAp1
End Sub