Sub BasDroit()
Dim Wt As Single
Dim Ht As Single
Dim mActiveWindowState As Single
Dim dif As Single
With Application
.ScreenUpdating = False
With .ActiveWindow 'Concerne la fenêtre du classeur
'conserver l'état d'origine de la fenêtre du classeur
mActiveWindowState = .WindowState
.WindowState = xlMaximized
'Quand la fenêtre du classeur est maximisée, sa propriété left est négative
'la valeur représente la largeur de la bordure de l'application.
dif = ActiveWindow.Left * 2
'rétablir l'état d'origine de la fenêtre du classeur
.WindowState = mActiveWindowState
End With
'Agrandir provisoirement la fenêtre de l'application
'pour en retenir les dimensions maximales
.WindowState = xlMaximized
Wt = .Width
Ht = .Height
.WindowState = xlNormal
.Width = 690
.Height = 550
.Left = Wt - .Width + dif
.Top = Ht - .Height + dif
.ScreenUpdating = True
End With
End Sub