Concaténer fichier texte

Bonjour,


je souhaiterais créer un code VBA afin de concaténer 3 fichiers *.txt dans un fichier final "résultats.txt",

l'ordre de concaténation est indiqué dans une colonne excel à part (suite_conca.xlsx => A1:A10)

Je n'arrive pas à trouver une syntaxe qui marche ! j'ai tenté ci-dessous sans sucées

Sub conca_fichier_txt()

Dim Chemin As String
Dim DerniereLigne As Long           'Index de la dernière ligne
Dim Ligne As Long

Chemin = "C:\fichiers\"
DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row

'lire l'ordre de concaténation des fichiers
For suite = 1 To 10 

id_fichier = 'identifier le fichier choisi

Next suite

'Ecrit dans le fichier txt
For i = 1 To 3

Ligne = 1
Do While Ligne <= DerniereLigne
    Open Chemin & "Résultat.txt" For Append As #Ligne
    Print #Ligne, Tableau(Ligne) & vbCrLf
    Close
    Ligne = Ligne + 1
Loop

Next i

MsgBox ("concaténation terminée")

End Sub

merci d'avance pour votre aide