Nombre d’occurrence de mots sur excel

Sub WorkbookFind()
'Stéphane Royer, mpfe
Dim counter As Integer
Dim What As String
Dim sht As Worksheet
Dim found, FirstAddress
counter = 0
  What = "ECO"
  If What = "" Then Exit Sub
  For Each sht In Worksheets
    sht.Activate
    Set found = sht.Cells.Find(What)
    If Not found Is Nothing Then
      FirstAddress = found.Address
      Do
       counter = counter + 1
        found.Activate
       ' Response = MsgBox("Continuer ?", vbYesNo + vbQuestion)
       ' If Response = vbNo Then Exit Sub
        Set found = Cells.FindNext(After:=ActiveCell)
        If found.Address = FirstAddress Then Exit Do
        Loop
    End If
  Next sht
  MsgBox "Recherche terminée !"
  MsgBox counter
End Sub

Sub CompterMots()
Dim nbmots As Long, F As Worksheet, mot As String
mot = "ECO"
nbmots = 0
For Each F In Worksheets
  nbmots = nbmots + Application.WorksheetFunction.CountIf(F.Cells, mot)
Next F
MsgBox "Recherche terminée, " & nbmots & " occurences du mot " & mot
End Sub