Sub MesTouchesON()
' touche Esc -> plein écran
' Maj + Touche Esc -> écran normal
Application.OnKey "{ESCAPE}", "Zoomer"
Application.OnKey "%{ESCAPE}", "DeZoomer"
End Sub
Sub MesTouchesOFF()
Application.OnKey "{ESCAPE}", ""
Application.OnKey "%{ESCAPE}", ""
End Sub
Sub Zoomer()
Application.DisplayFullScreen = True
End Sub
Sub Dezoomer()
Application.DisplayFullScreen = False
End Sub