bonjour Arapao , le forum le code = Option Explicit
Private Declare Function GetWindowLongA Lib 'user32' _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib 'user32' _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function FindWindowA Lib 'user32' _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long .........................Private Sub UserForm_Initialize()
On Error Resume Next
Dim hWnd As Long
hWnd = FindWindowA('Thunder' & IIf(Application.Version Like '8*', _
'X', 'D') & 'Frame', Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF end sub je te conseil de mettre ce code c est beaucoup plus stable Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = CloseMode = vbFormControlMenu
End Sub ' salutations