1 colonne sur plusieurs fichiers=>1 colonne sur 1 fichier

Sub import_colonne()
    On Error GoTo suite
    
    Application.ScreenUpdating = False      'bloquage ecran
    Chemin = "D:\_atest\Cop_Fich\"      'chemin des fichiers
    Fichier = "aze*.xlsx"                         'nom de fichier a chercher: * pour la partie differente
    FT = Dir(Chemin & Fichier)              'recherche fichier
    'boucle de recherche et copie
    Do While FT <> ""
        Workbooks.Open (Chemin & FT)        'ouverture fichier a copier
        derlig = Range("A" & Rows.Count).End(xlUp).Row      'derniere cellule non vide colonne A
        TInfos = Range("A1:A" & derlig).Value       'mise en tableau des infos colonne A
        ActiveWorkbook.Close False               'fermture du fichier sans sauvegarde
        'retour classeur destinataire
        With Worksheets("feuil1")
            PCV = .Range("A" & Rows.Count).End(xlUp).Row + 1        'premiere cellule vide colonne A
            .Range("A" & PCV).Resize(UBound(TInfos)) = TInfos         'copie des Infos recuperees du fichier
        End With
        FT = Dir
    Loop
suite:
    Application.ScreenUpdating = True       'debloquage ecran
End Sub