Fonctionnement intermittent de [ UserForms.Add ]

Bonjour,
Il me semble que les lignes suivantes suffiraient :
Set oVBC = ThisWorkbook.VBProject.VBComponents.Import( _
CheminComplet & "UserFormTest")
UserFormTest.Show

Ou alors, je n'ai pas tout à fait compris ta demande...
A+

-----Message d'origine-----
Pour alléger le classeur des macros, je charge le code
selon le besoin d'une userform :

Set oVBC = VBProject.VBComponents.Import("UserFormTest")
Userforms.Add("UserFormTest").Show

Si la UserForm est importante l'instruction
UserForms.Add échoue sans message. Comment y remédier ?
.

Merci pourton aide !

J'ai résolu de la façon suivante

Set oVBC = VBProject.VBComponents.Import("UserFormTest")
Application.Run ThisWorkBook.Name + "Lance","UserFormTest"

Sub Lance (pForm)
Userforms.Add(pForm).Show
End Sub

Call Lance("UserFormTest") ne marche pas toujours !
Application.Run marche toujours

-----Message d'origine-----
Bonjour,
Il me semble que les lignes suivantes suffiraient :
Set oVBC = ThisWorkbook.VBProject.VBComponents.Import( _
CheminComplet & "UserFormTest")
UserFormTest.Show

Ou alors, je n'ai pas tout à fait compris ta demande...
A+

-----Message d'origine-----
Pour alléger le classeur des macros, je charge le code
selon le besoin d'une userform :

Set oVBC = VBProject.VBComponents.Import("UserFormTest")
Userforms.Add("UserFormTest").Show

Si la UserForm est importante l'instruction
UserForms.Add échoue sans message. Comment y remédier ?
.

.