Fonction recherche sur excel

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