Bonjour à tous,

J'ai un petit souci, j'ai un classeur excel avec pas mal de feuilles, et je voudrais savoir combien de fois un certain mot est présent, j'ai tenté ce code mais sans succès :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub REcherche()
Dim Texte As String
Dim Cel As Range
Dim Compteur As Long
Dim Ws As Worksheet
 
       Texte = InputBox("Entrer le nom", "Recherche")
        For Each Ws In ThisWorkbook.Worksheets
           For Each Cel In Ws
            If UCase(Cel) = UCase(Texte) Then Compteur = Compteur + 1
 
        Next
    Next
    MsgBox "Le texte " & Texte & " a été trouvé " & Compteur & " fois"
End Sub
Comment je peux faire ? Merci d'avance