Microsoft 365 Rechercher dans certains onglets Uniquement dans 2 colonnes

Public Sub BoutonRecherche()
Dim nom$, f, plage As Range, c As Range, firstAddress$, rep, fin As Boolean
   nom = InputBox("Cherche N° Client :" & Chr(10) & "      - Si pas de n°," & Chr(10) & "            - ou erreur n°," & Chr(10) & "                  Recommencez !", "Recherche")
   If nom = "" Then Exit Sub
   For Each f In Array("Feuil1", "Feuil2", "Feuil3", "Feuil4")
      With Sheets(f)
         .Activate
         Set plage = Intersect(.Range("g7:h" & .Rows.Count), .UsedRange)
         Set c = plage.Find(nom, LookAt:=xlPart)   'LookAt:=xlPart dans cellule - LookAt:=xlWhole) 'cellule entière
         If Not c Is Nothing Then
            On Error Resume Next
            firstAddress = c.Address
            Do
               On Error Resume Next
               c.Activate
               ActiveWindow.ScrollRow = Selection.Row
               rep = MsgBox("Trouvé " & nom & " à " & f & "." & c.Address(0, 0) & vbLf & _
                     "Voulez-vous continuez la recherche ?", vbQuestion + vbYesNo + vbDefaultButton1)
               If Not rep = vbYes Then fin = True
               Set c = plage.FindNext(c)
               If c Is Nothing Then Exit Do
               If c.Address = firstAddress Then Exit Do
            Loop
         End If
      End With
      If fin Then Exit For
   Next f
   If Not fin Then MsgBox "Ben NON : y'a pas ou y'a plus !", vbExclamation
End Sub

Sub BoutonRecherche()
Dim txt$, w As Worksheet, tablo, i&, j%
txt = "*" & LCase(InputBox("N° Client :", "Chercher")) & "*"
If txt = "**" Then Exit Sub
For Each w In Worksheets(Array("Feuil1", "Feuil2", "Feuil3", "Feuil4"))
    tablo = w.Range("A1", w.UsedRange).Resize(, 8) 'matrice, plus rapide, colonne H incluse
    For i = 5 To UBound(tablo)
        For j = 7 To 8 ' colonnes G et H
            If LCase(tablo(i, j)) Like txt Then
                w.Visible = xlSheetVisible 'si la feuille est masquée
                Application.Goto w.Cells(i, j)
                If MsgBox(txt & " trouvé en " & w.Name & "!" & w.Cells(i, j).Address(0, 0) & vbLf & _
                    "Voulez-vous continuer la recherche ?", vbQuestion + vbYesNo + vbDefaultButton1) = vbNo Then Exit Sub
            End If
Next j, i, w
End Sub