Vba

Bonjour,

j'ai un soucis je realise un tuto pris suer le net et je rencontre un soucis voici le code:
Sub Couleur_page1()

For page_color = 1 To 8
Sheets(page_color).Shapes("page" & page_color).Fill.ForeColor.RGB = RGB(0, 112, 198)
Next page_color

ActiveSheet.Shapes("color1").Line.ForeColor.RGB = RGB(192, 0, 0)
ActiveSheet.Shapes("color2").Line.ForeColor.RGB = RGB(255, 255, 255)
ActiveSheet.Shapes("color3").Line.ForeColor.RGB = RGB(255, 255, 255)
ActiveSheet.Shapes("color4").Line.ForeColor.RGB = RGB(255, 255, 255)
ActiveSheet.Shapes("color5").Line.ForeColor.RGB = RGB(255, 255, 255)

End Sub

mais sa signale une erreur au niveau de la ligne sheet(page)
merci de votre aide