Microsoft 365 Résolu : VBA - Cacher Excel à l'ouverture d'UF

Module :
Sub Test()
    ' Masque la feuille et ouvre l'userform
    NomFichier = ThisWorkbook.Name
    Windows(NomFichier).Visible = False
    UserForm1.Show
End Sub

Userform :
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ' Interdit la fermeture de l'userform par la croix
    If CloseMode = vbFormControlMenu Then Cancel = True
End Sub
Private Sub CommandButton1_Click()
    ' Rend visible la feuille appli et ferme l'userform
    NomFichier = ThisWorkbook.Name
    Windows(NomFichier).Visible = True
    Unload UserForm1
End Sub