Option Explicit
Private Sub Workbook_Open()
Sheets("Feuil1").Visible = True
Sheets("Feuil2").Visible = True
'Sheets("Feuil1").Visible = xlSheetVeryHidden
With Sheets("Feuil2")
.Activate
.Range("a1:e7").ClearContents
.Range("L1:L3").ClearContents
.cbDeb.Visible = True
.cbFin.Visible = False
.cbRep.Visible = False
End With
End Sub