Private Sub UserForm_Initialize()
Const GWL_STYLE = (-16)
Const GWL_EXSTYLE = (-20)
Const WS_SIZEBOX = &H40000
Const WS_EX_APPWINDOW = &H40000
Const WS_MAXIMIZEBOX = &H10000 '/// ajout
Const WS_MINIMIZEBOX = &H20000 '/// ajout
Dim hwnd As Long, wLong As Long
wForm = Me.Width: hForm = Me.Height
hwnd = FindWindow(vbNullString, Me.Caption)
wLong = GetWindowLongA(hwnd, GWL_EXSTYLE)
wLong = wLong Or WS_EX_APPWINDOW
SetWindowLong hwnd, GWL_EXSTYLE, wLong
wLong = GetWindowLongA(hwnd, GWL_STYLE)
wLong = wLong Or WS_SIZEBOX Or WS_MAXIMIZEBOX Or WS_MINIMIZEBOX '/// modif
SetWindowLong hwnd, GWL_STYLE, wLong
Call lblResize
Call SaveControlsProperties
End Sub