bonjour,
une solution via une fonction personnalisée
Function comptecrit(r, c)
Set dict = CreateObject("scripting.dictionary")
For Each ro In r.Rows
If ro.Cells(1, 1) = c Then
If dict.exists(ro.Cells(1, 2).Value) Then
Else
dict.Add ro.Cells(1, 2).Value, 1
End If
End If
Next ro
comptecrit = dict.Count
End Function