Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If CommandButton1.TabIndex = 0 Then action
End Sub
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
action
End Sub
Sub action()
MsgBox "entrée dans le userform"
End Sub