Ouvrir feuille excel en bas à droite de l'écran

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