Sub test()
Close
Dim TextLine
Open "C:\Test.csv" For Input As #1 ' Ouvre le fichier.
Open "C:\Test2.csv" For Output As #2 ' Enregistre le fichier.
n = 1
Do While Not EOF(1) ' Effectue la boucle jusqu'à la fin du fichier.
Line Input #1, TextLine ' Lit la ligne dans la variable.
'Debug.Print TextLine ' Affiche dans la fenêtre Exécution.
MsgBox TextLine
If n <> 2 Then Print #2, TextLine Else Print #2, "": ' Enregistre dans le fichier texte #2.
n = n + 1
Loop
Close #1 ' Ferme le fichier.
Close #2
End Sub