Sub transform()
fileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt")
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fs, f, ts, s
Set fs = CreateObject("Scripting.FileSystemObject")
'fs.CreateTextFile "test1.txt" 'Crée un fichier
Set f = fs.GetFile(fileToOpen)
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
's = ts.ReadLine
s = ts.ReadAll
ts.Close
End Sub