Private Sub TextBox1_Change()
If gestion.TextBox1.Text = "3020000000005" Then gestion.Hide: OutilsSortis.Show 0: gestion.TextBox1.Value = "": TextBox1.SetFocus
If gestion.TextBox1.Text = "3040000000003" Then gestion.TextBox1.Value = "": accueil.TextBox1.SetFocus: gestion.Hide: accueil.Show 0:
End Sub