Microsoft 365 Masquer le classeur à l'affichage de la form

Dim propert
'----------------------------------------------------------------------------------------------------
Private Sub UserForm_Activate()    'evenement quand le userform s'active
    With Application
    If Not IsArray(propert) Then propert = Array(.WindowState, .Left, .Top, .Width, .Height)   'on mémorise la position initiale de la fenêtre application
        'on la dimentionne pareille que le userform
        .Width = Me.Width
        .Height = Me.Height
        .Top = Me.Top
        .Left = Me.Left
    End With
End Sub
'---------------------------------------------------------------------------------------------------
'evenement quand le userform se deplace
Private Sub UserForm_Layout()    
    With Application
    .Top = Me.Top
    .Left = Me.Left
End With
End Sub
'---------------------------------------------------------------------------------------------------
' on remet la fentre application comme avant a la fermeture du userform
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
     With Application
        .WindowState = propert(0)
        If propert(0) <> xlMaximized Then
            .Left = propert(1)
            .Top = propert(2)
            .Width = propert(3)
            .Height = propert(4)
        End If
    End With
End Sub

Private Sub UserForm_Initialize()
ThisWorkbook.Windows(1).Visible = False
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 ThisWorkbook.Windows(1).Visible = True
End Sub

Option Explicit

Private Sub UserForm_Initialize()
    MasquerAppli
End Sub

Private Sub UserForm_Layout()
    MasquerAppli
End Sub

Private Sub MasquerAppli()
    With Application
        .WindowState = xlNormal
        .Top = Me.Top
        .Left = Me.Left
        .Height = Me.Height
        .Width = Me.Width
    End With
End Sub