XL 2019 Compter le nombre de sélection de contenu différent dans une listebox

[SPGoder]

Bonjour
Certainement une solution simple, mais je n'y parvient pas
Dans une listbox avec multi sélection, je voudrai compter le nombre de sélection de contenu différent
Exemple: si la listbox a 3 fois "papa' et 3 fois "maman" même si tout est sélectionné, le résultat devrait donner 2
Voici le code qui compte la totalité

    Dim Nbre_select As Integer, i As Integer
    
        For i = 0 To ListBox1.ListCount - 1
            If ListBox1.Selected(i) = True Then Nbre_select = Nbre_select + 1
        Next i
        TextBox1 = Nbre_select

Je joins un petit fichier basique pour les tests
Merci par avance

 

[JM27]

Bonjour

 

[SPGoder]

c'est du rapide
évidement cela fonctionne à merveille
Il va falloir que je me penche sur les collections, je ne connais pas
bonne journée à vous
Et merci beaucoup