LB2.Visible = False
LB1.AddItem "A"...)
Dim Choix As String, r As Integer Choix = LB1.List(LB1.ListIndex) ' Nettoie la 2e liste LB2.Clear ' Insère les données secondaires For r = 1 To 5 LB2.AddItem Choix & CStr(r) Next r ' Tu visualises la liste desondaire LB2.Visible = True