Valeurs uniques dans une colonne et leur nombre d'occurence

Bonsoir les amis

je bloque sur mon code VBA qui a pour rôle de chercher dans une colonne le nombre de valeurs uniques ainsi que le nombre d'occurrence de chaque valeur.. par exemple si j'ai

Lundi

Lundi

Lundi

Mardi

Mardi

Mercredi

Mercredi

Jeudi

le résultat que je souhaite est : "il existe 3 valeurs différentes" , " Lundi 3 fois" , "Mardi 2 fois", "Mercredi 2 fois", "Jeudi 1 fois"

jusqu'à présent j'ai seulement réussi à trouver le nombre de valeurs différentes et de les afficher il me reste le nombre d'occurrence de chacune (en PJ le code VBA utilisé )

merci pour vos retours!

Hello,

If (Not (InStr(1, Ligne, Valeur, vbBinaryCompare) > 0)) Then
    Ligne = Ligne & ("[" & Valeur & "]")
    NombreDeValeursUniques = NombreDeValeursUniques + 1
    ValeursUniques(NombreDeValeursUniques) = Valeur
    nb_valeur = Application.WorksheetFunction.CountIf(MaPlage, Valeur)
End If

Merci pour ton retour

j'ai trouvé une autre solution adapté à ce que je veux

Dim variable As String

MsgBox " Le nombre de Passagers enregistrés pour chacun des " & ValeursUniques & " ID(s) est "
For i = 1 To nb 'Pour chaque ligne sélectionnée

variable = tableau(i) 'On récupère la valeur de la cellule

ReDim Preserve t(i) 'On redimensionne le tableau contenant les valeurs uniques

If Not IsInArray(variable, t) Then 'Si la valeur n'a pas déjà été trouvée

t(i) = variable 'On conserve la valeur unique

indice = 0

For j = 1 To nb
If tableau(j) = variable Then
indice = indice + 1 'On compte le nb de fois que la valeur a été trouvée dans la sélection
End If
Next

MsgBox " Le nombre de pax enregistrés par " & (t(i) & " : " & indice) & " PAX "