Private Sub Workbook_Open()
Application.DisplayFullScreen = True
Application.ScreenUpdating = False
Application.EnableEvents = False
With ThisWorkbook.Sheets("FORMAT")
.Select 'Est-ce nécessaire ????
.Unprotect Password:="mad"
.CommandButton1.Enabled = False
.Rows("29:38").EntireRow.Hidden = False
.Protect Password:="mad"
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub