Bonjour Camille, et bienvenue sur XLD,
Essaie comme ceci:
Private Sub Workbook_Open()
With Worksheets("Sheet1")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="coucou", AllowFormattingColumns:=True, AllowFormattingRows:=True, UserInterfaceOnly:=True
End With
With Worksheets("Sheet2")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="coucou", AllowFormattingColumns:=True, AllowFormattingRows:=True, UserInterfaceOnly:=True
End With
End Sub
Cordialement.