Salut,
le theme n'est pas le bon effectivement mais la question est bonne.
Sheets("feuil1").ScrollArea = "A1:Z200"
'limite la zone visible de la feuille sur la A1:Z200
Sheets("feuil1").ScrollArea = "" '
Pour annuler cette limitation
mais attention cette methode limite le defillement de la feuille pas le zoom
Pour utiliser ces lignes de code tu dois ajouter un module a ton projet puis dans ce module tu dois creer une Sub Routine
Voici un exemple :
Sub LimitDefillement () 'Active ou Annule une Zone de defillement limitée
Dim DefillementArea As String
If Sheets("feuil1").ScrollArea = "" Then
DefillementArea = "A1:Z200"
Else
DefillementArea = ""
End If
Sheets("feuil1").ScrollArea =
DefillementArea
End Sub
Pour plus d'info sur comment ajouter un module et creer une sub routine tu peux aller voir le tuto de mortalino ICI
A+