JEU EN VBA AVEC USERFORM ET BOUTON

Private Sub bouton_Click()
c = MsgBox("Bravo", vbInformation, "Le jeu de Coco")
userform1.Hide
End Sub


Private Sub bouton_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
a = Int(200 * Rnd) + 1
b = Int(200 * Rnd) + 1
bouton.Left = a
bouton.Top = b
End Sub

Private Sub CommandButton1_Click()
c = MsgBox("Pssss vraiment trop nul", vbInformation, "Le jeu de Coco")
c = MsgBox("Allez faire un tour sur ce site : http://nico-le-coco.fr.st", vbInformation, "Le jeu de Coco")
userform1.Hide
End Sub

Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
c = MsgBox("Tu as triché, donc tu as perdu !", vbInformation, "Le jeu de Coco")
bouton.Visible = False
CommandButton1.Top = 70
CommandButton1.Left = 140
CommandButton1.Height = 200
CommandButton1.Width = 200
End Sub