Option Explicit
Private Sub Worksheet_Activate()
Dim M As Long, PlgDon As Range, TDon(), DicVend As Dictionary, Tk(), _
Données As Collection, T(), L&, C&, RéfArt As SsGroup, Vendeur As SsGroup
For M = 1 To 12
Set PlgDon = ColUti(ThisWorkbook.Worksheets(M).[B2:C2])
If Not PlgDon Is Nothing Then TableauÀAjouter = PlgDon.Value
Next M
TDon = TableUniqueCréée(CRSrc:=3)
Set DicVend = DicInvent(TDon, 1, ColDép:=2)
Tk = DicVend.Keys
Set Données = GroupOrg(TDon, 2, 1)
ReDim T(1 To Données.Count + 1, 1 To DicVend.Count + 1)
For C = 2 To UBound(T, 2)
T(1, C) = Tk(C - 2)
Next C
L = 1
For Each RéfArt In Données
L = L + 1
T(L, 1) = RéfArt.Id
For Each Vendeur In RéfArt.Contenu
C = DicVend(Vendeur.Id)
T(L, C) = Vendeur.Count
Next Vendeur, RéfArt
Me.UsedRange.ClearContents
Me.[A1].Resize(L, UBound(T, 2)).Value = T
End Sub