Bonjour à tous

Je souhaiterais limiter la zone de déplacements dans toutes les feuilles du classeur

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    ActiveSheet.ScrollArea = UsedRange.Address
End Sub
Renvoi
Erreur d’exécution ‘424’
Objet requis

Je sèche sur ce problème, j'ai fait des recherches sur les forums, je ne trouve pas de solution

Pourriez-vous m'apporter une piste svp

Cordialement modus57