Executer une macro sur plusieurs classeurs

'----------------------------------------
Sub test()
Dim Répertoire As String, Fichier As String
Dim Sep As String, Feuille As String

'***********Définir les variables***************
Feuille = "Feuil1" 'Nom de la feuille
                   'où seront copiées les données

'Répertoire où sont les fichiers .csv
Répertoire = "C:\Users\AAIGOUI\Desktop\EEQ VO\"
'Séparateur d'éléments utilisé dans le fichier texte
Sep = ";"
'***************************************************

Application.ScreenUpdating = False
Fichier = Dir(Répertoire & "*.csv")
Do While Fichier <> ""
    Call MaMacro(Répertoire & Fichier, Feuille, Sep)
    Fichier = Dir()
Loop
Application.ScreenUpdating = True
End Sub
'----------------------------------------
Sub MaMacro(CheminEtFichier As String, _
Feuille As String, Sep As String)

Dim A As Integer, T As Variant
Dim Arr As Variant
Dim WholeLine As String, FName As String

With Worksheets(Feuille)
    If .Range("A1") = "" Then
        A = 1
    Else
        A = .Range("A65536").End(xlUp)(2).Row
    End If
    FName = CheminEtFichier
    Open FName For Input Access Read As #1
    While Not EOF(1)
        Line Input #1, WholeLine
        T = Split(WholeLine, Sep)
        .Range("A" & A).Resize(, UBound(T) + 1) = T
        A = A + 1
    Wend
    Close #1
End With
End Sub
'----------------------------------------

Sub MaMacro(CheminEtFichier As String, _
Feuille As String, Sep As String)

Dim A As Integer, T As Variant
Dim Arr As Variant
Dim WholeLine As String, FName As String

With Worksheets(Feuille)
    If .Range("A1") = "" Then
        A = 1
    Else
        A = .Range("A65536").End(xlUp)(2).Row
    End If
    FName = CheminEtFichier
    Open FName For Input Access Read As #1
    While Not EOF(1)
        Line Input #1, WholeLine
        T = Split(WholeLine, Sep)
        .Range("A" & A).Resize(, UBound(T) + 1) = T
        A = A + 1
    Wend
    Close #1
End With
End Sub

'--------------------------------------

Sub MaMacro(CheminEtFichier As String, _
Feuille As String, Sep As String)

Dim A As Integer, T As Variant
Dim Arr As Variant
Dim WholeLine As String, FName As String

'En utilisant la feuille que tu passes en paramètre à la procédure
With Worksheets(Feuille)
    'Déterminer la première cellule disponible de la feuille d'où débutera la
    'copie des données des fichiers .csv
    If .Range("A1") = "" Then
        A = 1
    Else
        A = .Range("A65536").End(xlUp)(2).Row
    End If
    
    FName = CheminEtFichier
    'ouverture du fichier .CSV en lecture seulement...
    Open FName For Input Access Read As #1
    'Début d'une boucle se terminant à la fin du fichier
    While Not EOF(1)
        'Mettre dans la variable à chaque boucle la ligne lu dans la variable WholeLine
        Line Input #1, WholeLine
        'Place dans une variable Tableau(array) chacun des éléments basé sur le séparateur d'éléments "sep" utilisé dans le fichier
        T = Split(WholeLine, Sep)
         'Copie du tableau (t) vers la feuille de calcul
        .Range("A" & A).Resize(, UBound(T) + 1) = T
        'Compteur permettant de passer à la ligne suivante dans la feuille de calcul.
        A = A + 1
    Wend
    'Fermeture du fichier
    Close #1
End With
End Sub 
'--------------------------------------

'----------------------------------------------
Sub test()
 Dim Répertoire As String, Fichier As String
 Dim Sep As String, Feuille As String
 Dim NomNouveauFichier As String
 
'***********Définir les variables***************
'Répertoire où sont les fichiers .csv
 Répertoire = "c:\Users\DM\Documents\" ' "C:\Users\AAIGOUI\Desktop\EEQ VO\"
 'Séparateur d'éléments utilisé dans le fichier texte
 Sep = ";"
 '***************************************************
 
Application.ScreenUpdating = False
Fichier = Dir(Répertoire & "*.csv")
Do While Fichier <> ""
    NomNouveauFichier = Left(Fichier, Len(Fichier) - 4) & ".xls"
    Call MaMacro(Répertoire, Fichier, NomNouveauFichier, Sep)
    Fichier = Dir()
Loop
Application.ScreenUpdating = True
End Sub

Sub MaMacro(Chemin As String, Fichier As String, _
    NomNouveauFichier As String, Sep As String)
 
Dim A As Integer, T As Variant
Dim Arr As Variant, Wk As Workbook
Dim WholeLine As String
 
'Ajoute un classeur avec seulement une feuille
Set Wk = Workbooks.Add(-4167)
'Baptise le nom de la feuille selon le nom du fichier
Wk.Worksheets(1).Name = Left(Fichier, Len(Fichier) - 4)
With Wk.Worksheets(1)
    Open Chemin & Fichier For Input Access Read As #1
    A = 1
    While Not EOF(1)
        Line Input #1, WholeLine
        T = Split(WholeLine, Sep)
        .Range("A" & A).Resize(, UBound(T) + 1) = T
        A = A + 1
    Wend
    Close #1
End With
'Enregistrement du nouveau fichier au nom du fichier .csv
'dans le même répertoire et écrase le fichier si un fichier
'portant ce nom est déjà présent.
Application.DisplayAlerts = False
Wk.SaveAs Chemin & NomNouveauFichier
Application.DisplayAlerts = True
End Sub
'-----------------------------------------------