Bonjour,
Le zoom n'est pas un événement détectable par excel.
On peut se servir de SelectionChange() pour modifier l'affichage lors d'une sélection :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveWindow.Zoom < 130 Then ActiveWindow.Zoom = 130
End Sub
eric