Function ComptDoubl(plage) Dim MonDico, cel, i
Set MonDico = CreateObject("Scripting.Dictionary")
For Each cel In plage
If cel.Value > 0 Then MonDico(cel.Value) = MonDico(cel.Value) + 1
Next
For Each i In MonDico.items
If i > 1 Then ComptDoubl = ComptDoubl + 1
Next
End Function