Copier intégralement un Frame

Private Sub CommandButton1_Click()
'Formulaire 1
Dim Frm As MSForms.UserForm
Dim ctrl As Controls

    Set Frm = Me
    Set ctrl = Me.Controls
  
    ctrl.Copy
  
    UserForm2.Show
    UserForm2.Paste
End Sub

Dim Frm As MSForms.Frame
Dim ctrl As Controls

    Set Frm = Frame1
    Set ctrl = Frame1.Controls
 
    ctrl.Copy
 
    Frame2.Paste

Private Sub CheckBox1_Click()
ComboBox1.Text = "HELLO !"
End Sub

Private Sub ComboBox1_Change()
Me.OptionButton1.Value = True
End Sub

Private Sub CommandButton1_Click()
Dim Frm As MSForms.UserForm
Dim ctrl As Controls
Dim fm As Controls

    Set Frm = Me
    Set ctrl = Me.Controls
 
    ctrl.Copy
    Call copier
    UserForm2.Show
    UserForm2.Paste
End Sub

Private Sub ListBox1_Click()
ListBox1.AddItem "HELLO BOY !"
End Sub

Private Sub OptionButton1_Click()
TextBox1 = "C'EST OK !"
End Sub

Private Sub TextBox1_Change()
MsgBox "BYE !"
End Sub

Sub copier()
'Active la référence Microsoft Visual Basic Extensibility

   Dim strCode As String
   Dim vbCom As VBComponent
   Dim modObj As Object

   Set modObj = _
      Application.VBE.ActiveVBProject.VBComponents.Item("UserForm1")

   strCode = modObj.CodeModule.Lines(1, modObj.CodeModule.CountOfLines)

   Application.VBE.ActiveVBProject.VBComponents.Add (vbext_ct_StdModule)

   Application.VBE.ActiveVBProject.VBComponents.Item("UserForm2") _
      .CodeModule.AddFromString (strCode)

End Sub

   Set modObj = _
      Application.VBE.ActiveVBProject.VBComponents.Item("UserForm1")