VBA: ouvrir des classeurs fermés fonction Indirect

Bonjour,

J'utilise dans Excel la fonction indirect qui me permet de trouver des valeurs dans d'autres fichiers selon le nom des cellules (dans l'exemple ci-dessous en A7)

=RECHERCHEV(Data!$G$1;INDIRECT("'W:\XXX\Synthèse\["&A7&".xlsm]6 - Synthèse'!$E:$AG");18;FAUX)

Seulement le résultat me donne des #REF parce que les fichiers sont fermés!
J'ai plus de 700 fichiers en tout mais ils sont tous dans le même répertoire.

J'ai trouvé ce code sur internet mais j'ai toujours les #REF

Dim Repertoire As String, Fichier As String
Dim Wb As Workbook
Dim Ws As Worksheet
Dim i As Integer
 
Application.ScreenUpdating = False
 
'Définit la Première feuille du classeur contenant cette macro
'(pour recevoir les donnée extraites dans les autres classeurs).
Set Ws = ThisWorkbook.Worksheets(1)
 
'Définit le répertoire de recherche
Repertoire = "C:\Documents and Settings\mimi\dossier\"
'Spécifie la recherche pour le fichiers .xls
Fichier = Dir(Repertoire & "*.xls")
 
'Boucle sur les fichiers du répertoire
Do While Fichier <> ""
    'Vérifie que le nom du classeur est différent du classeur
    'contenant cette macro (dans le cas ou il serait placé dans le même répertoire).
    If ThisWorkbook.Name <> Fichier Then
        'Ouvre chaque classeur
        Set Wb = Workbooks.Open(Repertoire & Fichier)
 
        'Referme le classeur
        Wb.Close False
    End If
 
    Fichier = Dir
Loop
 
Application.ScreenUpdating = True
MsgBox "Terminé"

Pouvez-vous m'aider je ne comprends pourquoi ça ne marche pas.

Merci pour votre aide, je débute en VBA.