Private Sub Workbook_Open()
With Feuil2 'Worksheets("Feuil1")
'grouper dissocier meme avec la protection feuille excel
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="", UserInterfaceOnly:=True, AllowFormattingCells:=True
End With
End Sub