Dim ufEnfant As UserForm1
Public Parent As UserForm1
Private Sub CommandButton1_Click()
Set ufEnfant = New UserForm1
Set ufEnfant.Parent = Me
Me.Hide
ufEnfant.Show
End Sub
Private Sub UserForm_Terminate()
On Error Resume Next
Me.Parent.Show
End Sub