Sub Recherche2()
'Déclaration Variable et objets
Dim NomCherche As String
Dim Trouve As Range
Dim Onglet As Worksheet
'Inhibe le rafraiche écran
Application.ScreenUpdating = False
'Acquisition du terme à chercher
NomCherche = InputBox("Terme à rechercher : ")
'Scrute l'ensemble des feuilles du classeur avec arrêt sur la 1° occurence
For Each Onglet In ThisWorkbook.Worksheets
'Charge l'objet cellule de retour
Set Trouve = Onglet.Cells.Find(What:=NomCherche, LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
'Si terme trouvé alors fin et sortie de boucle
If Not Trouve Is Nothing Then Exit For
'Si autre onglet reprend la boucle
Next Onglet
'Si terme trouvé dans une des feuilles
If Not Trouve Is Nothing Then
MsgBox ("La recherche de" & " " & NomCherche & " " & "donne" & vbCrLf & _
"Coordonnées de la cellule : " & Trouve.Address & _
vbCrLf & "Nom de la feuille : " & Trouve.Worksheet.Name)
Else
'Si non trouvé
MsgBox ("Une erreur improbable est survenue")
End If
'Réactive le rafraiche écran
Application.ScreenUpdating = True
End Sub