Créer userform VBA

Yop

comme j'arrive pas à copier le userform, j'ai décider de le créer.

j'ai un petit soucis pour lui définir sa taille, mais surtout je n'arrive pas à l'afficher...

voila la partie de code incriminé...

les lignes surlignées on été rajoutées pensant que ça changerait qqchose, mais nada...

il apparait bien dans le fichier avec le bon nom et la bonne couleur, mais pas les tailles.

++

Troph

 '******************
 '***Création USf***
 '******************

 Dim Wb As Workbook
    Dim VBComp As VBComponent
   ' Dim Xs As Integer

    'Définit le classeur cible
    Set Wb = Workbooks(Fichier)

    'Ajoute un module standard dans le classeur
    Set VBComp = Wb.VBProject.VBComponents.Add(3)
    'Renomme le module
    VBComp.Name = "USFmdp"
  Dim USFmdp As UserForm
 Set USFmdp = VBComp("USFmdp")
  With VBComp

   .Designer.BackColor = &HFFFFC0
   .Designer.Caption = "Ouverture du fichier"
   .DesignerWindow.Height = 1258 'ici avec .height=1258 ya une erreur
   .DesignerWindow.Width = 1338

    End With
    Load USFmdp ' si je clique dessus il me mets = nothing
    USFmdp.Show