Function CompteNoms(Plage As Range, Réf As Range) As Integer
Dim Cellule As Range, Recherche As Range
For Each Cellule In Plage
Set Recherche = Réf.Find(Cellule, lookat:=xlWhole, LookIn:=xlValues)
If Not Recherche Is Nothing Then CompteNoms = CompteNoms + 1
Next
End Function