Pas de croix

Mes AMIS du Forum bonjour ,
J'ai un code qui me permet de supprimer la croix de fermeture d'un USF
le voici :
' POUR SUPPRIMER LA CROIX DANS UN USF
' A METTRE DANS UN MODULE QUELCONQUE
'
Declare Function GetWindowLongA Lib "User32" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLongA Lib "User32" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long


Sub Pasdecroix(USF As UserForm)
Dim hWnd As Long
hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
X, "D") & "Frame", USF.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
End Sub
N'est'il pas possible de l'appliquer a tous les USF du workBook, a son ouverture ??? et non pas de le rentrer a chaque usf dans usf activate ???

Merci de votre aide cordialement GDS35