Function CompteNom&(nom$, onglet As Range, plage As Range)
Application.Volatile
On Error Resume Next 'si des feuilles n'existent pas
For Each onglet In onglet
CompteNom = CompteNom + Application.CountIf(Sheets(onglet.Text).Range(plage.Address), nom)
Next
End Function