XL 2019 rechercher un nom dans plusieurs fichiers

Sub ChercherPartout()
Dim Nom$, Ligne%, i%, L%, Feuille$, Fichier$
Nom = [B1]: Ligne = 2: [E2:G1000].ClearContents
For i = 1 To Workbooks.Count
    Fichier = Workbooks(i).Name
    With Workbooks(Fichier)
        For Each F In Workbooks(Fichier).Sheets
            Feuille = F.Name
            If Application.CountIf(.Sheets(Feuille).Range("A:A"), Nom) > 0 Then
                L = Application.Match(Nom, .Sheets(F.Name).Range("A:A"), 0)
                Cells(Ligne, "E") = Fichier
                Cells(Ligne, "F") = Feuille
                Cells(Ligne, "G") = L
                Ligne = Ligne + 1
            End If
        Next F
    End With
Next i
End Sub

            If Application.CountIf(.Sheets(Feuille).Range("A:A"), Nom) > 0 Then
                Lig = 1
                While .Sheets(F.Name).Cells(Lig, "A") <> ""
                    If .Sheets(F.Name).Cells(Lig, "A") = Nom Then
                        Cells(Ligne, "E") = Fichier
                        Cells(Ligne, "F") = Feuille
                        Cells(Ligne, "G") = Lig
                        Ligne = Ligne + 1
                    End If
                    Lig = Lig + 1
                Wend
            End If