Function NB_SANS_DOUBLON(P)
Dim d As Object, t
If P.Count > 1 Then P = P 'matrice, plus rapide
Set d = CreateObject("Scripting.Dictionary")
For Each t In P
If Not (IsEmpty(t) Or IsError(t)) Then d(t) = ""
Next
NB_SANS_DOUBLON = d.Count
End Function