Public Sub Ouverture_Fichier()
Dim strLine As String
Const TonFichier As String = 'C:\1txt'
Const TonNouveauFichier As String = 'C:\3txt'
Open TonFichier For Input As #1 ' Ouverture de ton fichier
Open TonNouveauFichier For Output As #2 ' Création du nouveau fichier
Do
' Gestion d'erreur pour savoir si on est arrivé à la fin du Fichier
On Error Resume Next
If Err Then
Err.Clear
On Error GoTo 0
Exit Do
Else
Line Input #1, strLine ' Récupère ligne par ligne du fichier
Print #2, strLine ' Insère Ligne par ligne dans le nouveau fichier
End If
Loop
Close #1
' Va chercher tes nouvelles données ici
' Insère chaque nouvelle ligne dans le fichier
' Je ne sais pas ou elles sont tes nouvelles données, besoin de plus de précision
Print #2, strLine
Close #2
End Sub