J'ai regardé, ça change rien
J'ai trouvé quelque part ce code, il fonctionne le seul problème c'est que quand je referme le fichier et que je le ré-ouvre cela ne fonctionne plus:
Private Sub Workbook_Open()
Dim WS_Count As Integer
Dim I As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 1 To WS_Count
With ActiveWorkbook.Worksheets(I)
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, UserInterfaceOnly:=True
End With
Next I
End Sub