J'en utilise certaine via les userform dont otitle
Option Explicit
'Pour enlever la barre de titre du UF
Public Type Rect
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public VarAffichage As Boolean
Public VarSuppression As Boolean
Public VarBlocage As Boolean 'Utilisée dans ThisWorkbook et bouton exit
Public Const GWL_STYLE = (-16)
Public Const WS_CAPTION = &HC00000
Public Const SWP_FRAMECHANGED = &H20
Public Declare PtrSafe Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare PtrSafe Function GetWindowRect Lib "user32" _
(ByVal Hwnd As Long, lpRect As Rect) As Long
Public Declare PtrSafe Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal Hwnd As Long, ByVal nIndex As Long) As Long
Public Declare PtrSafe Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal Hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Public Declare PtrSafe Function SetWindowPos Lib "user32" _
(ByVal Hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, _
ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, _
ByVal wFlags As Long) As Long
Public Bascule As Boolean
Public LgP As Long 'Variable numero pieces
'****************************Préventif plannifié********************************************************************
Public LgPP As Long 'Variable numero interventions préventif planifié
'******************************Recherche********************************************************
Public Operateur As String