'Au début du module contant la macro qui appel l'userform:
Private Declare Function FindWindow& Lib "User32" Alias "FindWindowA" (ByVal lpClassName$, ByVal lpWindowName$)
Private Declare Function SetWindowLong& Lib "User32" Alias "SetWindowLongA" (ByVal hwnd&, ByVal nIndex&, ByVal dwNewLong&)
Private Declare Function ShowWindow& Lib "User32" (ByVal hwnd&, ByVal nCmdShow&)
Dim hwnd&
'Dans la macro en question:
ShowWindow hwnd, 3