Microsoft 365 Recherche sur feuille

For Each Feuil In Sheets
.....
Next Feuil1

    For Each Cel In ActiveSheet.Range(Str_Plage)
        If InStr(Cel, Str_critère) Then
            Cel.Activate
            X = MsgBox("Référence """ & Str_critère & """ trouvée :" & Chr(13) & _
            "à l'adresse : " & Cel.Address(0, 0) & Chr(13) & Chr(13) & _
            "Est-ce celle là ?" & Chr(13) & Chr(13) & _
            "Oui : on quite" & Chr(13) & _
            "Non : on continue la recherche " & Chr(13) & _
            "Annuler : on arrête la recherche" & Chr(13), vbDefaultButton1 + _
            vbQuestion + vbYesNoCancel, "Référence trouvée")
            Select Case X
            Case 6 'oui
            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