Sub BoucleFichiers()
    Dim Chemin As String, Fichier As String, NomFic As String
    'Dim xlWb As Workbook
    Dim i As Integer
 
    'Définit le répertoire contenant les fichiers
    Chemin = "C:\Users\etienne.cantin\Desktop\Tempo\"
 
    'Boucle sur tous les fichiers xls du répertoire.
    Fichier = Dir(Chemin & "*.xls")
    'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers :
    'Fichier = Dir(Chemin & "*.*")
     i = 1
   
    Do While Len(Fichier) > 0
               
                 'écrit le résultat dans la fenêtre d'exécution (Ctrl+G).
        Fichier = Dir()
        NomFic = (Chemin & Fichier)
                 'Debug.Print Chemin & Fichier
        
        Workbooks.Open Filename:=NomFic
        Debug.Print NomFic
        ActiveSheet.Range("I6:K6").Select
        Selection.Copy
        ActiveWorkbook.Close False
        Windows("VBA_FR.xlsm").Activate
        Sheets("Sheet1").Select
        Cells(i, 1).Select
        ActiveSheet.Paste
        Cells(i, 2).Select
        ActiveCell.FormulaR1C1 = Fichier
        
       ' Workbooks.Close SaveChanges:=False Filename:=NomFic
        
        'Workbooks(Fichier).Close SaveChanges:=False
        i = i + 1
        
        Debug.Print Chemin & Fichier
        
    Loop

    
    
End Sub