Refonte de code

Bonjour tout le mode,

J'ai fais ce petit code pour me permettre d'utiliser les groupements de plans tout en protégeant mes feuilles :

Private Sub Workbook_Open()
With Worksheets("F1")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="TOTO", UserInterfaceOnly:=True
End With
With Worksheets("F2")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="TOTO", UserInterfaceOnly:=True
End With
With Worksheets("EF3")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="TOTO", UserInterfaceOnly:=True
End With
End Sub

Est-ce qu'il y a moyen de le rendre ce code plus élégant et facilement généralisable à plusieurs feuilles sans avoir les instructions :

With Worksheets("F1")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="TOTO", UserInterfaceOnly:=True
End With

autant de fois qu'il y a de feuilles dans le classeur.

Merci beaucoup pour vos réponses.

Pricer