Nombre d'occurences différentes (autre que NNVAL et NBSI)

J'aimerais avoir comme résultat directement:

Cliquez pour agrandir...

Sub CompteItems()
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range("a2", [a65000].End(xlUp))
mondico(c.Value) = mondico(c.Value) + 1
Next c
[c2].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
[d2].Resize(mondico.Count, 1) = Application.Transpose(mondico.items)
End Sub

Cliquez pour agrandir...

Dull à dit:

Bonjour Devotchka et Bienvenue, le Forum

L'objet Dictionnary est fait pour ce genre de manipulation. JB (Boisgontier🙂) l'a vulgarisé sur son site
à cette page va jusqu'à Compter les éléments et Dans un module standard met le 1er Code



Résultat Garantie

Edition: Salut Rachid 🙂, Patrick 🙂
Bonne Journée

Cliquez pour agrandir...