Function NbIdent(vecteur As Range, r As Range, N)
Dim compte, c1 As Range, c2 As Range
N = Val(N)
If N = 0 Then NbIdent = "": Exit Function
For Each r In r.Rows
compte = 0
For Each c1 In r.Cells
If c1 <> "" Then
For Each c2 In vecteur
If c1 = c2 Then compte = compte + 1
Next
End If
Next
If compte = N Then NbIdent = NbIdent + 1
Next
End Function