Microsoft 365 Recherche dans tout le classeur de youky(BJ)

Option Explicit

Sub Recherche()
    Dim Nom As String
    Dim q As Integer
    Dim k As Integer
    Dim C As Range
    Dim Rep As Variant
 
    Nom = InputBox("Saisir l'objet de la Recherche :", "Recherche")
 
    If Nom = "" Then
        Application.EnableEvents = False
        MsgBox ("Faudrait p'être saisir l'objet de la recherche !")
        [A3].Select
        Application.EnableEvents = True
        Exit Sub
    End If
 
    Application.EnableEvents = False
    q = ActiveSheet.Index
 
    For q = q To ActiveSheet.Index + Sheets.Count - 1
        k = (q - 1) Mod (Sheets.Count) + 1
        With Sheets(k).UsedRange
            Application.ScreenUpdating = False
 
            Set C = .Find(Nom, LookAt:=xlPart)   'LookAt:=xlpart dans cellule - LookAt:=xlWhole) 'cellule entière
            '[a1].Activate
            If Not C Is Nothing Then
                firstAddress = C.Address
                Do
                    On Error Resume Next
 
                    Sheets(k).Select
                    C.Activate
                    Application.ScreenUpdating = True
                    ActiveWindow.ScrollRow = Selection.Row
                    'Cells(ActiveCell.Row, 1).Select
 
                    Rep = MsgBox(C & " : OK dans " & ActiveSheet.Name & Chr(10) & "" & Chr(10) & "Cellule - ligne :  " & C.Address & Chr(10) & Chr(10) & "" & "Continuer la recherche ?", 4 + 32, "Résultat")
 
                    If Rep = vbNo Then
                        Application.EnableEvents = True
                        Exit Sub
                    End If
                 
                    'Application.ScreenUpdating = False
                    Application.ScreenUpdating = True
                    Set C = .FindNext(C)
                 
                Loop While Not C Is Nothing And C.Address <> firstAddress
            End If
        End With
    Next q
 
    MsgBox "Ben NON : y'a pas ou y'a plus !"
    'Application.ScreenUpdating = False
End Sub

    Rep = Application.InputBox("Saisir l'objet de la Recherche :", "Recherche")
    If VarType(Rep) = vbBoolean Then Exit Sub    'Touche Annuler
    Nom = CStr(Rep)

Sub Recherche()

    Nom = Application.InputBox("Saisir l'objet de la Recherche :", "Recherche")
    If VarType(Nom) = vbBoolean Then 'Touche Annuler
    Nom = CStr(Nom)
    Exit Sub
    End If

If Nom = "" Then
Application.EnableEvents = False
MsgBox ("Faudrait p'être saisir l'objet de la recherche !")
[a3].Select
Application.EnableEvents = True
Exit Sub
End If
etc.....