Macro zoom

Bonjour,
J'ai un code pour zoomer la feuil 1 de A à J ça fonctionne
je l'ai modifié pour zoomer la feuil 2 de A à O ça ne fonctionne pas
Voici le code
Sub Zoom()
' ------------------ Adaptation automatique à la résolution écran
On Error Resume Next
Application.ScreenUpdating = False
Call Deprotege_Feuill
[A1:J20].Select
ActiveWindow.Zoom = True
Application.ScreenUpdating = True
[A1].Select
Call Protege_Feuill

Call Deprotege_Feuil2
[A1:O20].Select
ActiveWindow.Zoom = True
Application.ScreenUpdating = True
[A1].Select
Call Protege_Feuil2
End Sub

Dites moi ce qui ne va pas merci pour votre aide



--
Commence par faire le nécessaire ,puis fait ce qu'il est possible de faire et tu réaliseras l'impossible sans t'en apercevoir. Saint François d'Assise