Function NbUnique(Plg As Range)
Dim Uniques As Object, Cel As Range
Set Uniques = CreateObject("Scripting.Dictionary")
For Each Cel In Plg
If Not Uniques.Exists(Cel.Value) Then Uniques.Add Cel.Value, Cel.Value
Next Cel
NbUnique = Uniques.Count
End Function