Private Sub UserForm_Initialize()
Dim hwnd As Long, style As Long, i%
'--- Cela sert à désactiver le bouton "Fermer" (croix rouge) du UserForm --
hwnd = FindWindow(vbNullString, Me.Caption)
style = GetWindowLong(hwnd, -16) And Not &HC00000
SetWindowLong hwnd, -16, style
'--------------------------------------------------------------------------
'############################################
'### Ici la procédure DrawMenuBar est appelée.
'### Comme son code n'est pas communiqué, je
'### ne sais pas quelle est son action.
'### Essayez de flaguer l'instruction par une
'### quote (') et voyez ce qui se passe.
'DrawMenuBar hwnd
'############################################
If Feuil11.Visible = xlSheetVisible Then
For i = 1 To 10
With Controls("CheckBox" & i)
.Visible = True
.Enabled = True
End With
Next i
End If
End Sub