'[COLOR=SeaGreen]///Déclarations ///[/COLOR]
Dim lAppWindowState As Long
[COLOR=SeaGreen] '/// ----------///[/COLOR]
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
With Application
lAppWindowState = .WindowState
.WindowState = xlMaximized
Me.Move 0, 0, .Width, .Height
End With
End Sub
Private Sub UserForm_Terminate()
Application.WindowState = lAppWindowState
End Sub