Private Sub UserForm_Initialize()
Me.CommandButton1.Visible = False
End Sub
Private Sub CommandButton2_Click()
Me.CommandButton1.Visible = True
'... le reste de ton code
End Sub
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With CommandButton1
.BackColor = IIf(X > 15 And X < .Width - 15 And Y > 10 And Y < .Height - 10, vbRed, &H8000000F)
End With
End Sub