Window.UsableHeight (Excel)

Renvoie la hauteur maximale de l’espace pouvant être occupé par une fenêtre dans la zone de la fenêtre d’application, exprimée en points. Type de données Double en lecture seule.

With ActiveWindow 
 .WindowState = xlNormal 
 .Top = 1 
 .Left = 1 
 .Height = Application.UsableHeight 
 .Width = Application.UsableWidth 
End With