Création de fichiers .csv à partir de fichier .txt

Oui, c'est ce que je souhaite faire, mais je ne sais pas quelles lignes de code je dois ajouter pour que les données récupérées sur les fichiers .txt soient envoyées vers des fichiers .csv distincts, que la macro doit créer, et non pas vers une feuille du fichier excel. Une idée SVP ?

Je pensais que vous alliez me proposer un bloc à insérer dans ma macro, donc indépendante de la macro, mais vu que c'est si gentiment demandé, voici la macro ;), merci d'avance pour ton aide ! :

Sub DonneesEchéance()
Dim FichierAOuvrir
Dim i As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set F1 = Sheets("Liste")
Set F2 = Sheets("RecupDesDonnees")

F1.Select
ChDrive Cells(2, 1)
Chemin = Cells(2, 2) & "\"
ReDim FichierAOuvrir([C10000].End(xlUp).Row - 1) As String
ReDim VDate([C10000].End(xlUp).Row - 1) As String
ReDim NomFich([C10000].End(xlUp).Row - 1) As String
ReDim N°Fich([C10000].End(xlUp).Row - 1) As String
ReDim Dest([C10000].End(xlUp).Row - 1) As String
ReDim CodeVol([C10000].End(xlUp).Row - 1) As String

NbFichiers = [C10000].End(xlUp).Row - 1
For i = 1 To NbFichiers
If Cells(i + 1, 3) = "" Then GoTo Recup
FichierAOuvrir(i) = Cells(i + 1, 3)
Next i

Recup:
F2.Select
For i = 1 To NbFichiers
Workbooks.OpenText Filename:= _
Chemin & FichierAOuvrir(i), Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array _
(3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers:=True
VDate(i) = [c1]
NomFich(i) = [c2]
N°Fich(i) = [c3]
Dest(i) = [c4]
CodeVol(i) = [C11]

ActiveWorkbook.Close
Next i

F2.Activate

For i = 1 To NbFichiers
'PremLigne = [A65535].End(xlUp).Row + 1
Cells(i + 1, 3) = VDate(i)
Cells(i + 1, 4) = NomFich(i)
Cells(i + 1, 5) = N°Fich(i)
Cells(i + 1, 6) = Dest(i)
Cells(i + 1, 7) = CodeVol(i)

Next i
End Sub

Sub ToutEffacer()
Application.ScreenUpdating = False
If [A65535].End(xlUp).Row = 1 Then Exit Sub
Dim Msg, Titre, Reponse
Msg = "Etes-vous sûr de vouloir tout effacer?"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "Effacement des données"
Reponse = MsgBox(Msg, Style, Titre)
If Reponse = vbYes Then
Range(Cells(2, 1), Cells([A65535].End(xlUp).Row, [IV1].End(xlToLeft).Column)).Select
Selection.ClearContents
End If
Range("A2").Select
End Sub

Je ne sais pas s'il fallait faire un copié collé directement de la macro ou si je pouvais joindre un fichier .txt, donc je fais comme je peux. Si ce n'est pas la bonne méthode, vous pouvez me le dire simplement :)