Sub Transfert_TXT_CSV()
Dim chemin$, fichier$, texte$, a$(), n&
chemin = ThisWorkbook.Path & "\" 'à adapter
fichier = "Fichier TXT.txt" 'à adapter
Open chemin & fichier For Input As #1 'ouverture pour la lecture
Do While Not EOF(1) 'EndOfFile: fin du fichier
Line Input #1, texte 'récupère la ligne
ReDim Preserve a(n) 'tableau VBA, base 0
a(n) = texte 'stocke le texte dans le tableau a
n = n + 1
Loop
Close #1
fichier = "Fichier CSV.csv" 'à adapter
Open chemin & fichier For Output As #1 'ouverture pour l'écriture
For n = 0 To UBound(a)
Print #1, Replace(a(n), " ", ";")
Next
Close #1
MsgBox n & " ligne" & IIf(n > 1, "s", "") & " transférée" & IIf(n > 1, "s", "")
End Sub