Function ItemsDifferentsCritere(champ, champcritere, critere)
Set MonDico = CreateObject("Scripting.Dictionary")
a = champ
b = champcritere
For i = 1 To champ.Count
If b(i, 1) = critere And a(i, 1) <> "" Then
temp = a(i, 1)
MonDico(temp) = temp
End If
Next i
ItemsDifferentsCritere = MonDico.Count
End Function