<htm lang=fr>
Ligne de mise en page de la page...
</html>
fsys = CreateObject("Scripting.FileSystemObject") monfic = fsys.CreateTextFile("c:\Fichier.html") With (monfic) .WriteLine("<html lang=fr>") .WriteLine("") .WriteLine("<title>Accueil</title>") .WriteLine("<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">") .Close() End With Dim msg As String msg = "Écriture réussie dans fichier.html" MsgBox(msg)