Ceci est une solution extraire de mon programme
' Lorsque l'on sélectionne une ligne dans la listBox //////////////////////////////////////////////////////////////
Private Sub ListBox1_Click()
    Dim i As Integer, ii As Integer
    Dim Textea As String, Texteb As String, Textec As String...