Trouver le nombre de valeurs

Option Explicit

Const sep = ";"

Public Function Kompte(plageP As Range, plageC As Range, p As String) As Long
Dim nbc As Long, li As Long, nbli As Long, n As Long
Dim dico As Object, cle As String, valeur As String, cles, valeurs, nbcles As Long
Set dico = CreateObject("scripting.dictionary")
nbli = plageP.Rows.Count
For li = 1 To nbli
  cle = plageP.Cells(li, 1).Value
  valeur = plageC.Cells(li, 1).Value
  If dico.exists(cle) Then
    If InStr(1, dico(cle), valeur) = 0 Then dico(cle) = dico(cle) & sep & valeur
  Else
    dico.Add cle, valeur
  End If
Next li
nbcles = dico.Count
cles = dico.keys
valeurs = dico.items
If dico(p) = "" Then
  Kompte = 0
Else
  Kompte = UBound(Split(dico(p), sep)) + 1
End If
End Function