Protéger plusieurs feuilles en même temps

Bonjour,
Je fais une macro pour protéger plusieurs feuilles d'un classeur en même temps. Je l'ai faite en faisant du copier-coller pour les feuilles suivantes. Il y a d'autres feuilles dans ce classeur qui ne doivent pas être protégée.

Ma macro est la suivante:

Sub Macro1protéger6()
'
' Macro1protéger6 Macro
' Protéger certaines feuilles
'

'
Sheets("(1-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("(2-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("(3-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("(4-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("(5-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("(6-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("(7-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("(8-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("(9-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("(10-6)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

J'aimerais une façon plus simple de l'écrire, mais je ne trouve pas sur le forum. Je n'ai pas besoin de mettre un mot de passe.

Merci.