Option Compare Text 'la casse est ignorée (facultatif)
Function NbValeurs(critere, colcritere As Range, nom, colnom As Range, Nder&)
Dim i&, n&
For i = colcritere.Count To 1 Step -1
If colcritere(i) = critere Then
n = n + 1
If colnom(i) = nom Then NbValeurs = NbValeurs + 1
If n = Nder Then Exit Function
End If
Next
End Function