'remplacer les # par le N° du fix
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\KB#####\","Empêche WU de proposer une MAJ déjà installée"
Set WshShell = Nothing

Message = "Windows Update ne devrait plus proposer" & vbCR
Message = Message & "l'installation du Hotfix KB######." & vbCR & vbCR

MsgBox Message, vbOkOnly, "Terminé!"