Option Explicit

Private Sub Cmd1_Click()
Dim ObjetRegedit, CleRegistre$
Set ObjetRegedit = CreateObject("WScript.Shell")
CleRegistre = "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\ProgrammeX\Valeur"
ObjetRegedit.RegWrite CleRegistre, "Essai d'écriture", "REG_SZ"
Set ObjetRegedit = Nothing
End Sub

Private Sub Cmd2_Click()
Dim ObjetRegedit, CleRegistre$
On Error GoTo Erreur: 'Si la clé n'existe pas
Set ObjetRegedit = CreateObject("WScript.Shell")
CleRegistre = ObjetRegedit.RegRead("HKEY_CURRENT_USER\Software\VB and VBA Program Settings\ProgrammeX\Valeur")
MsgBox CleRegistre
GoTo Fin: '--------------------------------------------------------------------
Erreur:
MsgBox "La clé n'existe pas."
Fin:
Set ObjetRegedit = Nothing
End Sub

Private Sub Cmd3_Click()
Dim ObjetRegedit, CleRegistre$
On Error GoTo Erreur: 'Si la clé n'existe plus cela crée une erreur qu'il faut gérer
Set ObjetRegedit = CreateObject("WScript.Shell")
ObjetRegedit.RegDelete ("HKEY_CURRENT_USER\Software\VB and VBA Program Settings\ProgrammeX\Valeur")
GoTo Fin: '--------------------------------------------------------------------
Erreur:
MsgBox "La clé n'existe plus."
Fin:
Set ObjetRegedit = Nothing
End Sub