Option Explicit 'oblige à déclarer toutes les variables
Sub Macro1()
Dim mot As String 'déclare la variable mot
Dim PA As String 'déclare la variable PA
Dim R As Range 'déclare la variable R
Dim C As Long 'déclare la variable C
C = 0 'définit la variable C (Compteur)
mot = InputBox('Tapez le mot que vous recherchez.', 'Recherche de Mot') 'définit la variable mot
If mot = '' Then Exit Sub 'si rien n'est tapé, sort de la procédure
With Cells 'dans toutes les cellules
Set R = .Find(mot, , xlValues) 'condition: définit la variable R (Recherche du mot)
If Not R Is Nothing Then 'si la recherche n'est pas infructueuse
C = C + 1 'redéfinit la variable C
PA = R.Address 'définit la variable PA (Première Adresse)
Do 'exécute
Set R = .FindNext(R) 'redéfinit la variable R (Recherche le suivant)
C = C + 1 'redéfinit la variable C
'exécute tant que une ocurrence exsite et que l'adresse n'est pas identique à PA
Loop While Not R Is Nothing And R.Address <> PA
End If 'fin de la condition
End With
MsgBox C - 1 'message affichant le compteur - 1 (car la dernière trouvée est la première)
End Sub