Sub Macro1()
Dim vr As String 'déclare la variable vr (Valeur Recherchée)
Dim r As Range 'déclare la variable r (Recherche)
Dim pa As String 'dim pa as string (Première Adresse)
Dim mes As String 'déclare la variable mes (MESsage)
Dim x As Byte 'déclare la variable x
'définit la variable vr
vr = InputBox("Tapez le texte à recherger en respectant la casse.", "rECHERCHER...")
If vr = "" Then Exit Sub 'si la boite d'entrée n'est pas renseignée, sort de la procédure
Set r = Cells.Find(vr, , , xlWhole) 'définit la variable r
If Not r Is Nothing Then 'condition : si il existe au moins une occurrence de vr dans l'onglet
pa = r.Address 'définit la variable pa
x = 0 'définit la variable x
Do 'exécute
mes = mes & Chr(13) & r.Address(0, 0) 'définit la variable mes
x = x + 1 'redéfinit la variable x
Set r = Cells.FindNext(r) 'redéfinit la variable r
Loop While Not r Is Nothing And r.Address <> pa 'boucle tant qu'il existe des occurence de r ailleurs qu'en pa
Else 'sinon
MsgBox "Recherche infructueuse !" 'message
Exit Sub 'sort de la procédure
End If
'message de fin
MsgBox "il existe " & x & " occurence(s) de " & vr & " :" & Chr(13) & mes
End Sub