t = Timer
i = 1
SemaineInf = InputBox("Nom de la semaine mini ? (format aaaa Sem ss) Exemple : 2022 Sem 01")
SemaineSup = InputBox("Nom de la semaine maxi ? (format aaaa Sem ss) Exemple : 2022 Sem 01")
Chemin = "F:\xxx\_xxx\"
Fichier = Dir(Chemin & "*.xlsm")
Do While Len(Fichier) > 0
nCol = 2
Workbooks("exemple2.xlsm").Worksheets(1).Range("A" & i) = Fichier
Workbooks("exemple2.xlsm").Worksheets(1).Range("B" & i) = Semaine
x = Int(VBA.Right(SemaineInf, 2))
y = Int(VBA.Right(SemaineSup, 2))
For nSem = x To y
nCol = nCol + 1
Workbooks("exemple2.xlsm").Worksheets(1).Cells(i, nCol).FormulaR1C1 = "=SUM('" & Chemin & "[" & Fichier & "]" & VBA.Left(SemaineInf, 4) & " Sem " & Format(nSem, "00") & "'!R4C4:R500C15)"
Next nSem
i = i + 1
Debug.Print Chemin & Fichier
Fichier = Dir()
Loop