Option Explicit On Error Resume Next Dim wsh, box, str Set wsh = CreateObject("WScript.Shell") str = wsh.RegRead("HKCU\Software\Microsoft\Internet Explorer\Main\Window Title") box = InputBox("Entrez le nouveau titre de Internet Explorer", "Zebulon-fr.com", str) If (box <> "") Then wsh.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Window Title", box, "REG_SZ" MsgBox ("Changement effectué."), 64, "Opération terminée" End If