Private Sub CommandButton1_Click()
    MsgBox "Ca à l'air de fonctionner"
End Sub

Private Sub UserForm_Click()
    MsgBox "Ben oué"
End Sub