Dans Workbook_Open, j'ai ça

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Public HauteurEcran, LargeurEcran
Private Sub Workbook_Open()
    Application.WindowState = xlMaximized
    With Application
        HauteurEcran = .UsableHeight
        LargeurEcran = .UsableWidth
    End With
'....
End sub
Dans un form, j'ai ça

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
    With GrilleDeSaisie  'Nom de l'userform
        .Height = HauteurEcran
        .Width = LargeurEcran
    End With
'...
End sub
Or, si la largeur de GrilleDeSaisie correspond bien à la largeur de l'écran, la hauteur, elle, ne suit pas.
Un erreur d'interprétation ?

Une explication serait la bienvenue.

Merci

NB - Je n'avais encore jamais rencontré de pb avec ce code