Function ItemsDifferentsCritere(champ, champcritere1, critere1, champcritere2, critere2)
Application.Volatile
Set MonDico = CreateObject("Scripting.Dictionary")
a = champ ' tableau + rapide
b = champcritere1
c = champcritere2
For i = 1 To champ.Count
If b(i, 1) = critere1 And c(i, 1) = critere2 And a(i, 1) <> "" Then MonDico(a(i, 1)) = ""
Next i
ItemsDifferentsCritere = MonDico.Count
End Function