Limiter Accès Identique sur plusieurs Feuilles

Bonjour;

j'ai écris ce code:

Private Sub Workbook_Open()

Application.AskToUpdateLinks = 1

ThisWorkbook.Sheets("REIFENHAUSER n° 1 SITE 1").ScrollArea = "A1:D6"

End Sub

qui me permet d’éviter les boite de dialogues de mise à jour des liaison ainsi que la limitation à des plages bien déterminées, seulement j'ai dans mon classeur 35 feuilles sur les quelles la limitation d'accès est applicable sauf la première feuille, ma question est comment transformer la commande pour appliquer cette limitation à toutes les feuilles sauf la première sans répéter bien sure cette commande 35 fois, Merci et Bon courage à Tous.

Bonjour;

je viens de mettre un essai mais une erreur de compilation s'affiche sur le signe <> (Différent)

Private Sub Workbook_Open()

Application.AskToUpdateLinks = 1

For Each Ws In ThisWorkbook.Sheets <> "Delais Livraisons"

ThisWorkbook.Sheets.ScrollArea = "A1:D6"

Next

End Sub

Merci à tous, à plus

Bonjour;

je viens de mettre un essai mais une erreur de compilation s'affiche sur le signe <> (Différent)

Private Sub Workbook_Open()

Application.AskToUpdateLinks = 1

For Each Ws In ThisWorkbook.Sheets <> "Delais Livraisons"

ThisWorkbook.Sheets.ScrollArea = "A1:D6"

Next

End Sub

Merci à tous, à plus

Tente avec ça:

Private Sub Workbook_Open()

For Each Sheet In Worksheets

    If Not Sheet.Name = "Nom de la première feuille" Then Sheet.ScrollArea = "A1:D6"

Next Sheet

End Sub

Bonjour;

Merci migou; c'est parfait.