modification macro recherche

Sub Macro_Recherche3()
Dim Str_Plage As String
Dim Cel As Range
Dim Feuil As Worksheet
Dim Str_critère As String
Dim X As Byte

'Str_Plage = "A1:P16" on peut supprimer
  Str_critère = InputBox("Adresse à rechercher ?")
  For Each Feuil In Sheets
    Str_Plage = Feuil.Range("C1").EntireColumn.Address   'permet de limité la recherche dans la colonne C
    For Each Cel In Feuil.Range(Str_Plage)
      If UCase(Cel) = UCase(Str_critère) Then
        X = MsgBox("ADRESSE """ & Str_critère & """ trouvé :" & Chr(13) & _
        "Sur la feuille : " & Feuil.Name & Chr(13) & _
        "à l'adresse : " & Cel.Address(0, 0) & Chr(13) & Chr(13) & _
        "Oui : aller a l adresse" & Chr(13) & _
        "Non : on continue la recherche " & Chr(13) & _
        "Annuler : on arrête la recherche" & Chr(13), vbDefaultButton1 + _
        vbQuestion + vbYesNoCancel, "ADRESSE TROUVÉ")
        Select Case X
          Case 6
            Feuil.Activate
            Cel.Activate
            Exit Sub
          Case 2 'annuler on sort
            Exit Sub
          Case Else 'Non=7
        'on fait rien, mais on pourrait
        End Select
      End If
    Next Cel
  Next Feuil
MsgBox ("pas trouvé")

End Sub

Sub recherche_find()
Dim Str_Plage As String
Dim Cel As Range
Dim Feuil As Worksheet
Dim Str_critère As String
Dim X As Byte
Dim firstAddress As String
'critère de recherche
  Str_critère = InputBox("Adresse à rechercher ?")
  For Each Feuil In Sheets
    With Feuil.Range("$C:$C")
      Set Cel = .Find(Str_critère, LookIn:=xlValues)
      If Not Cel Is Nothing Then
        firstAddress = Cel.Address
        X = MsgBox("ADRESSE """ & Str_critère & """ trouvé :" & Chr(13) & _
        "Sur la feuille : " & Feuil.Name & Chr(13) & _
        "à l'adresse : " & Cel.Address(0, 0) & Chr(13) & Chr(13) & _
        "Oui : aller a l adresse" & Chr(13) & _
        "Non : on continue la recherche " & Chr(13) & _
        "Annuler : on arrête la recherche" & Chr(13), vbDefaultButton1 + _
        vbQuestion + vbYesNoCancel, "ADRESSE TROUVÉ")
        Select Case X
          Case 6
            Feuil.Activate
            Cel.Activate
            Exit Sub
          Case 2 'annuler on sort
            Exit Sub
          Case Else 'Non=7'
          Do
            Set Cel = .FindNext(Cel)
            If Not Cel Is Nothing Then
              X = MsgBox("ADRESSE """ & Str_critère & """ trouvé :" & Chr(13) & _
                  "Sur la feuille : " & Feuil.Name & Chr(13) & _
                  "à l'adresse : " & Cel.Address(0, 0) & Chr(13) & Chr(13) & _
                  "Oui : aller a l adresse" & Chr(13) & _
                  "Non : on continue la recherche " & Chr(13) & _
                  "Annuler : on arrête la recherche" & Chr(13), vbDefaultButton1 + _
                  vbQuestion + vbYesNoCancel, "ADRESSE TROUVÉ")
              Select Case X
                Case 6
                  Feuil.Activate
                  Cel.Activate
                  Exit Sub
                Case 2 'annuler on sort
                  Exit Sub
                Case Else 'Non=7'
              End Select
            End If
          Loop While Not Cel Is Nothing And Cel.Address <> firstAddress
        'on fait rien, mais on pourrait
        End Select
      End If
    End With
  Next Feuil
End Sub