Recherche un morceau de code qui me permet de savoir combie

Bonjour je recherche un morceau de code qui me permet de savoir combien de fois est présent le mot "ON" dans un classeur.

J'utilise la macro suivante <<MsgBox Application.WorksheetFunction.CountIf(Rows(1), "ON")>> mais ça ne marche pas.

Je souhaite donc savoir si il existe un code simple pour remplacer cette macro.

Contrainte : J'aimerai éviter de faire une boucle avec compteur pour chercher ce mot. Je souhaite vraiment savoir si il existe un code VBA aussi simple de la formule précédente.

Merci,

Cordialement,

DAVID

j'ai trouvé je met le code au cas ou ça interresserait quelqu'un

Sub calcule()

ValeurCherchee = "---- ON ----"

Application.ScreenUpdating = False

Cpte = 0

For Each sH In Worksheets

Sheets(sH.Name).Select

With ActiveWorkbook.Worksheets(sH.Name).Cells

Set Sch = .Find(CStr(ValeurCherchee), LookIn:=xlValues)

If Not Sch Is Nothing Then

firstAddress = Sch.Address

Do

Set Sch = .FindNext(Sch)

Cpte = Cpte + 1

Loop While Not Sch Is Nothing And Sch.Address <> firstAddress

End If

End With

Next sH

Application.ScreenUpdating = True

MsgBox Cpte

End Sub

Bonjour,

Et ça ne fonctionnait pas avec le code suivant ?

Sub calcule()
Dim Sh As Worksheet
Dim Cptr As Integer
    For Each Sh In Worksheets
        Cptr = Cptr + Application.WorksheetFunction.CountIf(Cells, "*ON*")
    Next
    MsgBox Cptr
End Sub

A+