Private Sub Workbook_Open()
With Sheets("NomFeuille")
.EnableOutlining = True
.Protect "toto", , , , True
End With
End Sub
Private Sub Workbook_Open()
With Sheets("NomFeuille")
.EnableOutlining = True
.Protect "toto"
End With
End Sub