Sub BoucleFichiers()
    Dim Chemin As String, Fichier As String
    Dim ApplicationExcel
    Dim ClasseurExcel
    
    Set ApplicationExcel = CreateObject("Excel.Application")
    
    'Définit le répertoire contenant les fichiers
    Chemin = "C:\XXXXX"
 
    '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 & "*.*")
 
    Do While Len(Fichier) > 0
        'écrit le résultat dans la fenêtre d'exécution (Ctrl+G).
        Debug.Print Chemin & Fichier
       'Ouverture du classeur et lancement de la macro de correction des erreurs
        Set ClasseurExcel = ApplicationExcel.Workbooks.Open(Chemin & Fichier)
        ApplicationExcel.Visible = True
        ApplicationExcel.Run "Correction_Erreur_MES"
        ClasseurExcel.Close 'Fermeture du classeur
        
        Fichier = Dir()
    Loop
End Sub