Private Sub btconboboxdropdown_Click()
listmodule
Legis.Visible = False 'turlutu chapeau pointu
TextBox1.Visible = True
TextBox1 = ""
TextBox2 = ""
With frameliste
.Visible = Not .Visible
.Move btconboboxdropdown.Left - 50, Frame3.Height
.ZOrder 0
Me.Repaint
On Error Resume Next
frameliste.SetFocus
End With
End Sub