Private Sub Form_Load () ' Remplit List1 et le tableau ItemData à l'aide ' des éléments correspondants triés. List1.AddItem "Lucie Gombaud" List1.ItemData(List1.NewIndex) = 42310 List1.AddItem "Véronique Le Goff" List1. ItemData (List1.NewIndex) = 52855 List1.AddItem "Marie-Louise Vierne" List1.ItemData(List1.NewIndex) = 64932 List1.AddItem "François Rhein" List1. ItemData (List1.NewIndex) = 39227 End Sub Private Sub List1_Click () ' Ajoute le numéro et le nom de l'employé. Msg = List1. ItemData (List1.ListIndex) & " " Msg = Msg & List1.List(List1.ListIndex) Label1.Caption = Msg End Sub