tu peux placer cette procédure dans la partie code de ta feuille ou dans Thisworkbook, en changeant à peine le nom. Le zoom ne sera ajusté que si tu as défini une zone d'impression !
Private Sub Worksheet_Activate()
Dim Area$, Cel As Range
On Error Resume Next
With ActiveSheet
Set Cel = Selection
If Cel Is Nothing Then Set Cel = .Range("A1")
Area = .PageSetup.PrintArea
If Area <> "" Then
.Range(Area).Select
ActiveWindow.Zoom = True
End If
End With
Cel.Select
End Sub