Dans excel, j'ai toujours trouvé qu'il y avait un manque cruel de la fonction de comptage des éléments distinct d'une plage.

Une petite fonction utilisateur est donc nécessaire pour pallier ce manque.

voici le code de cette fonction :

Function NbValUniques(laPlage As Range)
Dim ValeursUniques As New Collection
On Error Resume Next
For Each cell In laPlage
ValeursUniques.Add cell.Value, CStr(cell.Value)
Next cell
On Error GoTo 0
NbValUniques = ValeursUniques.Count
End Function

Il suffit alors d'appeller cette fonction comme n'importe quelle autre depuis une cellule excel et de définir la plage des éléments à compter :