Function compter_uniques(MaPlage As Range) As Long
Dim Dico As Object, T As Variant
Set Dico = CreateObject("scripting.dictionary")
T = MaPlage
For i = Lboun(T, 1) To UBound(T, 1)
Dico(T(i, 1).Value) = ""
Next
compter_uniques = Dico.Count
End Function