Concaténation fichier text

Bonjour,

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

Je n'arrive pas à trouver une syntaxe qui marche ! j'ai tanté 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

'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