Dim objFileSystem Dim objFichierSortie Dim objFichierEntree Set objFileSystem = WScript.CreateObject("Scripting.FileSystemObject") Set objFichierSortie = objFileSystem.CreateTextFile("c:\Temp\Temp.txt") Set objFichierEntree = objFileSystem.OpenTextFile("c:\Temp\TestCSV.csv") ' Lecture de la première ligne d'entete. Ligne = objFichierEntree.ReadLine Do While Not objFichierEntree.AtEndOfStream Ligne = objFichierEntree.ReadLine objFichierSortie.WriteLine(Ligne) Loop objFichierSortie.Close objFichierEntree.close objFileSystem.DeleteFile "c:\Temp\TestCSV.csv" objFileSystem.CopyFile "c:\Temp\Temp.txt", "c:\Temp\TestCSV.csv" objFileSystem.DeleteFile "c:\Temp\Temp.txt"