Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With ListBox1
.Visible = -1
.ListIndex = -1
End With
End Sub
Private Sub ListBox1_Click()
Me.Label1.Caption = ListBox1.Text
ListBox1.Visible = False
End Sub
Private Sub UserForm_Initialize()
ListBox1.List = Array("Essai1", "Essai2", "Essai3")
ListBox1.Visible = Len(ListBox1.Text)
End Sub