Protection de feuille avec acces a certaine cellule

Bonjour,

J'ai une feuille que je veux protéger, mais en laissant certaine cellule et le format de ligne accessible,

Sub Protection()

ActiveSheets("Page1").Select

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _

, AllowFormattingCells:=True, AllowFormattingColumns:=True, _

AllowFormattingRows:=True

Sheets("Page1").Protect "XXX"

End Sub

Ce qui fait que ma feuille est bien protéger, mais je ne peux pas accéder aux cellules ni aux format de ligne

il doit y avoir un hic !, mais lequel

Bonjour,

avant de protéger la feuille , déverrouille les cellules concernées.