Private Sub Workbook_Open()
Feuil1.ScrollArea = "A1:P41"
Application.DisplayFullScreen = True
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False
End With
Sheets(2).Select
UserForm1.Show
End Sub