Option Explicit
Private Sub Worksheet_SelectionChange(ByVal c As Range)
If c.Column = 5 And c.Row > 3 Then
ActiveWindow.Zoom = 156
Else
ActiveWindow.Zoom = 100
End If
End Sub
...comment dois je faire par rapport à mon exemple?