Création dynamique Userform

Bonjour,

Je souhaiterais créer une UserForm lors de l'appui sur un bouton dans ma Userform principale.

Je souhaite de plus y ajouter un CommandButton pour permettre de quitter l'UserForm appelée et la détruire.

J'ai déjà réussi à trouver quelquechose sur le net, je vous copie le code adapté à mon projet.

Dim tempfrm As Object 'userform temporaire pour focus

Private Sub btnFocus_Click() '******************************************FOCUS*******************************
    Dim tempbtn As CommandButton 'bouton présent dans userform pour quitter le focus
    Dim tempchart As ChartSpace 'chartspace contenant le graph sur lequel mettre le focus

    Set tempfrm = ThisWorkbook.VBProject.VBComponents.Add(3)
    With tempfrm
        .Properties("Caption") = "Focus"
        .Properties("Width") = 800
        .Properties("Height") = 500
    End With
    Set tempbtn = tempfrm.Designer.Controls.Add("Forms.CommandButton.1")
    With tempbtn
        .Left = 700: .Top = 400: .Width = 50: .Height = 20
        .Caption = "Quitter le focus"
    End With
    VBA.UserForms.Add (tempfrm.Name)
    
End Sub
 

Merci d'avance.