Hello my workbooks is set:
Private Sub Workbook_Open() Application.ScreenUpdating = False ThisWorkbook.Windows(1).Visible = False Call Starter.Show(vbModeles