Utilisation de plusieurs macro pr classeurs a plusieur feuils

Sub Import_Fichier()
Dim Fichier, Fichier_Ext, Repertoire, Chemin, Chemin_Complet
Dim Ma_Feuille As Worksheet
Dim Type_Fichier As String

'fige ecran
Application.ScreenUpdating = False

For Each Ma_Feuille In Worksheets
    Ma_Feuille.Select
    Fichier = Range("A1").Value
    Type_Fichier = Range("B1").Value
    Chemin = Range("C1").Value
    'Efface le contenu de toutes les cellules de l'onglet actif
    Cells.ClearContents
    Range("A1").Value = Fichier
    Range("B1").Value = Type_Fichier
    Range("C1").Value = Chemin
    
    If Fichier = "" Then
    '   il faut calculer en fonction de la date
        Fichier = "a" & Format(Date, "yyyymmdd")
     End If
    Fichier_Ext = Fichier & Type_Fichier
    Chemin_Complet = Chemin & Fichier_Ext
       
    If Type_Fichier = ".TXT" Then
                
        'Importation du fichier texte a afficher, premiere cellule a remplir: A2
        'la base du code est obtenu avec l'enregistreur de macro et travaile en fonction
         'du besoin: noms de ficher et repertoire changeant en fonction de la date
        With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & Chemin_Complet, Destination:= _
        Range("$A$2"))
            .Name = Fichier
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .TextFilePromptOnRefresh = False
            .TextFilePlatform = 850
            .TextFileStartRow = 1
            .TextFileParseType = xlDelimited
            .TextFileTextQualifier = xlTextQualifierDoubleQuote
            .TextFileConsecutiveDelimiter = False
            .TextFileTabDelimiter = True
            .TextFileSemicolonDelimiter = False
            .TextFileCommaDelimiter = False
            .TextFileSpaceDelimiter = False
            .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
             1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
            .TextFileTrailingMinusNumbers = True
            .Refresh BackgroundQuery:=False
        End With
        
    ElseIf Type_Fichier = ".XLSX" Then
        Application.DisplayAlerts = False
        Workbooks.Open Filename:=Chemin_Complet
        Range("A2:AM250000").Copy
        ThisWorkbook.Activate
        Range("A2").Select
        ActiveSheet.Paste
        Workbooks(Fichier_Ext).Close
        Application.DisplayAlerts = True
    End If
    'Selection Donnees importees
    Range("A2:AM8643").Select
    'RAZ tri
    ActiveSheet.Sort.SortFields.Clear
    'Selection tri cle A2 descendant
    ActiveSheet.Sort.SortFields.Add Key:=Range("A2"), _
    SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
    xlSortTextAsNumbers
    'Tri Donnees
    With ActiveSheet.Sort
        .SetRange Range("A3:AM250000")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Next Ma_Feuille
'positionne sur cellule A1
Range("A1").Select
'Parametrage interval temps import: ici 3 secondes
Next_Scan = Now() + TimeValue("00:00:03")
Application.OnTime Next_Scan, "Import_Fichier"
      
Application.ScreenUpdating = True

End Sub

Sub XXX() 
Dim Ma_Feuille As Worksheet 
For Each Ma_Feuille In Worksheets 
    Ma_Feuille.Select 
    Chemin = Range("A1").Value 
    Type_Fichier = Range("B1").Value 
    ' 
    ' 
    'Traitement 
    ' 
    ' 
Next Ma_Feuille

Application.DisplayAlerts = False 
    Workbooks.Open Filename:="XXXXXXX.xls" 
    Range("A2:AM50000").Copy 
    ThisWorkbook.Activate 
    Range("A2").Select 
    ActiveSheet.Paste 
    Workbooks("XXXX.xls").Close 
    Application.DisplayAlerts = True