Dim choix As Integer Sub Command1_Click () Call valider form2.Hide End Sub Sub Command2_Click () form2.Hide form2.Label4.Visible = True form2.Combo3.Visible = True form2.Label5.Visible = True form2.Combo4.Visible = True form2.Frame1.Visible = True form2.Frame1.Height = 2172 form2.Check1.Visible = True form2.Check2.Visible = True form2.Check3.Visible = True form2.Option3.Visible = True End Sub