Function CompteJours(vehicule As Range, plage As Range)
'dans plage, jours en 1ère colonne, véhicules en 2ème colonne
Dim v, t, d As Object, i&
v = vehicule
t = plage 'matrice, plus rapide
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(t)
If t(i, 2) = v Then d(t(i, 1)) = ""
Next
CompteJours = d.Count
End Function