chemin = "\Chemin du fichier .txt"
Set fs = CreateObject("Scripting.FileSystemObject")
Set bloc_note = fs.OpenTextFile(chemin, 8, False)
Puis insertion des informations :
bloc_note.WriteLine "information 1"
bloc_note.WriteLine "information 2"
bloc_note.WriteLine "ligne = 3.25"