re,
une autre possibilité avec une fonction perso,
formule:
=NBSI_Sexe(A2:A6;Feuille2!A2:A11;Feuille2!D2:D11;"f")
code:
Function NBSI_Sexe(Personne As Range, Personne_base As Range, Genre_base As Range, sexe As String)
For Each p In Personne
If Not IsError(Application.Match(p, Personne_base, 0)) Then
s = Application.Index(Genre_base, Application.Match(p, Personne_base, 0))
If s = sexe Then NBSI_Sexe = NBSI_Sexe + 1
End If
Next
End Function