Option Explicit Private Sub Workbook_Open() Action_open End Sub Sub Action_open() UserForm1.Show Application.Visible = False 'rendre Excel invisible End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Application.Visible = True 'rendre Excel visible End Sub