Caché les barres de défilement de la feuille

Bonsoir le forum,
Un Fichier avec 4 feuilles, (Stock, DataBase,config et Mouvements )
Dans ThisWorkbook j’ai le code suivant :

Private Sub Workbook_Open()
Worksheets("Stock").Activate
With ActiveWindow
.DisplayWorkbookTabs = False ' onglets
ChargeArticle
End With
End Sub

Pour caché les barres de défilement de la feuille ( Stock) je essaie d’adapter le code de Ti ( ci-dessus ), mais rien a faire ! je n’ y arrive pas a les mettre ensembles. Comment faire ?

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Ti
Dim Feuilles, Ws, Ok As Boolean
'ci-dessous la liste (par codenames) des feuilles dont on gardera
'les barres de défilement
Feuilles = Array(Mouvements, DateBase, config)
For Each Ws In Feuilles
If Ws.Index = Sh.Index Then Ok = True
Next Ws
ActiveWindow.DisplayVerticalScrollBar = Ok
ActiveWindow.DisplayHorizontalScrollBar = Ok
End Sub

Merci d’avance .
Amicalement
Pias