Erreur sur macro

Hello,

Je cherche à pouvoir actualiser les données de plusieurs fichiers excel par une seule macro.
Etant très novice en VBA j'ai recherché et trouvé un code qui fait l'affaire parfaitement.
Cependant il ne fonctionne pas, et je ne comprend pas pourquoi.

Ci après le code :

</code>
Sub Maj_Lundi()

'Déclaration des variables de base

Dim wbSource, wbFichierUsager As Workbook
Dim strFileName, strPath, strSpec As String
Dim strFileList() As String
Dim i, FoundFiles As Integer

Set wbFichierUsager = ThisWorkbook

'Identification du chemin

strPath = "K:\Partenariat exclusif\RESULTATS VENTES PARTENAIRES EXCLUSIFS en xlsx\01. Lundi\"
strSpec = strPath & "*.xlsx"

'Extraction du contenu du répertoire

strFileName = Dir(strSpec)

If strFileName <> "" Then
FoundFiles = 1

ReDim Preserve strFileList(1 To FoundFiles)
strFileList(FoundFiles) = strPath & strFileName

Else
MsgBox "Aucun fichier trouvé"

Exit Sub

End If

'Trouver tous les autres noms de fichiers

Do
strFileName = Dir
If strFileName = "" Then Exit Do
FoundFiles = FoundFiles + 1
ReDim Preserve strFileList(1 To FoundFiles)
strFileList(FoundFiles) = strPath & strFileName
Loop

'Effectuer les traitements requis pour chaque fichier

For i = 1 To FoundFiles

Workbooks.Open strFileName:=strFileList(i)

Set wbSource = ActiveWorkbook
ActiveWorkbook.RefreshAll
wbSource.Close SaveChanges:=False

Next i

End Sub


L'erreur se passe au niveau de l'expression en gras : "Erreur de compilation : argument nommé introuvable"
Pourtant il me semble que la variable est correctement définie plus haut !

Si quelqu'un pourrait m'éclairer.

Merci d'avance :)

Thibaut