Comptage Valeur distinctes

Bonjour,


je cherche à faire un truc tout bête. J'ai pas mal chercher sur les diff forums sans succès.

Rien de tel qu'un exemple : répartition du nb d'inscrits par sexe (H/F), couleur de cheveux et caractère.

18/12/2006 H Brun Sympa 3
18/12/2006 H Blond Con 5
18/12/2006 F Chauve Sympa 1
18/12/2006 H Chauve Sympa 7
19/12/2006 H Blond Sympa 6
19/12/2006 H Chauve Con 2
19/12/2006 F Blond Con 4
19/12/2006 F Chauve Sympa 6
19/12/2006 F Chauve Con 5
19/12/2006 H Blond Con 7
19/12/2006 F Blond Sympa 1
19/12/2006 H Chauve Sympa 9

Je cherche une formule qui me donne le nombre moyen d'inscrits par jour.

Il me faut donc le somme de la dernière colonne. Jusqu'ici je gère.
Mais il me faut ensuite une formule qui me dise quand dans ma première colonne, j'ai "2" valeurs distinctes : 56 que divise 2 = 28 inscrits/jour.

N.B. je sais qu'on peut avoir ça très facilement via TCD, mais hélas, le TCD ne permet pas de répondre au format de report qui m'est demandé...

Merci d'avance

re PS : la fonction VB suivante a été proposé dans un post mais elle ne fonctionne pas chez moi :-(

Function NbValUnique(laPlage As Range)
Dim ValeursUnique As New Collection

On Error Resume Next
For Each cell In laPlage
If cell.EntireRow.Hidden = False Then
ValeursUnique.Add cell.Value, CStr(cell.Value)
End If
Next cell
On Error GoTo 0

NbValUnique = ValeursUnique.Count

End Function