XL 2013 Dénombrer élément 2 pour les éléments 1 en doublons

[Wyrgle]

Bonjour,
(le titre est pas super clair...)

Je continue un petit projet et bute sur une procédure de tri de doublons et de calcul d'occurence.
En colonne A : j'ai une liste de références de batiments avec bq de doublons.
En colonne B : une liste de travaux A, B ou Autre.
(on peut avoir plusieurs A et/ou B pour chaque référence)

Comment faire pour dénombrer les travaux A, B et Autre pour chaque références de batiments ?
En onglet 2 j'ai mis un exemple fait à la main.

Je sais lister les références de batiments sans doublons comme dessous :

Set mondico = CreateObject("Scripting.Dictionary")
For Each Batiment In Range("a2", [a65000].End(xlUp))
    mondico(Batiment.Value) = ""
Next Batiment
[h2].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)

 

[R@chid]

Bonjour,
un TCD fera l'affaire
Voir PJ


Cordialement

 

[Wyrgle]

Merci R@chid
C'est une super solution que je vais tenter d'inclure ds mon code.