'Pour creer le fichier texte Set FSys = CreateObject("Scripting.FileSystemObject") Set MonFic = FSys.CreateTextFile("c:\windows\bureau\fichier.txt") With MonFic 'Pour écrire dans le fichier texte .writeLine "Ecrivez la première ligne" 'Mettre write pour ne pas sauter à la ligne .writeLine "Ecrivez la deuxième ligne" .writeLine "Ecrivez la troisième ligne, etc..." End With Msg = "Écriture réussie dans fichier.txt" MsgBox(Msg)