Amélioration formule Excel 2013

Mon code

Sheets("test1").Unprotect Password:="654947" ' Feuille 2

Sheets("jourA").Unprotect Password:="654947" ' Feuille 3

Worksheets("test1").Range("d14:d20,e14:e20,g14:g20,k14:k20,m14:m20,o14:o20,q14,q20,s14:s20,u14:u20").ClearContents

Worksheets("test1").Range("A140:B155").ClearContents

Worksheets("jourA").Range("d14:d20,e14:e20,g14:g20,k14:k20,m14:m20,o14:o20,q14,q20,s14:s20,u14:u20").ClearContents

Worksheets("jourA").Range("A140:B155").ClearContents

Sheets("test1").Protect Password:="654947", DrawingObjects:=False, Contents:=True, Scenarios:=True

Sheets("jourA").Protect Password:="654947", DrawingObjects:=False, Contents:=True, Scenarios:=True

comment automatiser ce code pour les onglets ( 2 a 23 par exemple )

merci

Bonjour,

Quelque chose dans ce genre ?

Sub test()
    For i = 2 To 23
        Sheets(i).Select
    Next i
End Sub

merci cela fonctionne

cela donne

Sub test()

For i = 2 To 23

Sheets(i).Select

Sheets(i).Unprotect Password:="654947"

Worksheets(i).Range("d14:d20,e14:e20,g14:g20,k14:k20,m14:m20,o14:o20,q14,q20,s14:s20,u14:u20,A140:B155").ClearContents

Sheets(i).Protect Password:="654947", DrawingObjects:=False, Contents:=True, Scenarios:=True

Next i

End Sub