bonsoir Pégase
j'espere que l'adaptation ci dessous répondra à ta demande
Sub ChercherMot()
Dim Cell As Range
Dim Valeur As String, FirstAddress As String
Dim Feuille As Byte
Valeur = Application.InputBox("Saisir le mot à trouver : ")
If Valeur = "" Then Exit Sub
For Feuille = 1 To Sheets.Count
With Sheets(Feuille).Rows("12:80")
Set Cell = .Find(Valeur, LookIn:=xlValues)
If Not Cell Is Nothing Then
FirstAddress = Cell.Address
Do
Sheets(Feuille).Activate
Cell.Select
If MsgBox(" Continuer la recherche", 4, "Message") = vbNo Then Exit Sub
Set Cell = .FindNext(After:=ActiveCell)
Loop While Not Cell Is Nothing And Cell.Address <> FirstAddress
End If
End With
Next Feuille
If FirstAddress = "" Then MsgBox " La donnée " & Valeur & " n'a pas été trouvée dans le classeur . ", , "Message"
End Sub
bonne soiree
MichelXld