Selection.EntireColumn.Hidden = True ne fonctionne pas ?

Bonjour,

J'ai pris un exemple dans un livre de VBA pour les NULS (page 55) mais ça plante à l'exécution. Je ne vois pas où est l'erreur?

Sub MasquerToutSaufVueUtilisateur()

ActiveWindow.Panes(1).Activate
Columns("Q:Q").Select
Range(Selection, Selection.End(xlToRight)).Select

Selection.EntireColumn.Hidden = True

ActiveSheet.Shapes.Range(Array("Group Box 95")).Select

' faire hidden sur le box &H8000000F& (blanc) l'instruction suivante ne fonctionne pas non plus???
' ActiveSheet.Shapes.Range(Array("Group Box 95")).BorderColor = &H8000000F

Rows("338:381").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Hidden = True
Range("A").Select

End Sub