Ligne clicable listbox

Bonjour,

j'ai une listbox dans laquelle en fonction de divers choix sur combobox et texbox elle afcihe les lignes correspondantes. je veux lorsqu eje clique sur un ligen avoir les cmpléments d'info sur des textbox différentes.

cela fonctionne sauf que je ne peux jamais obtenir l'info sur le clic de al deuxième ligne. j'ai bien la 1er
et la 3eme et meme un 4 mais rien sur la 2 elle reprends toujorus les infos de L-1 (ligne du dessus)


merci à tous

voici le code

Private Sub ListBox5_Click()
Dim cptr As Byte, Article As String, Lig As Byte, n As Integer

For cptr = 0 To ListBox5.ListCount - 1
        If ListBox5.Selected(cptr) = True Then
          Article = ListBox5.List(ListBox5.ListIndex, 0)
          With Sheets("Suivi NC")
               Lig = .Columns("a").Find(Article, .range("a8"), xlValues, xlWhole).Row
                                      
                      Tcomment.Value = Cells(Lig, "Q")
                        Tavleader.Value = Cells(Lig, "X")
                            Tdateleader.Value = Cells(Lig, "W")
                                Tdatecrea.Value = Cells(Lig, "U")
                                    Tredact.Value = Cells(Lig, "V")
                                        Tstatuts.Value = Cells(Lig, "H")
                                            Tformatete.Value = Cells(Lig, "F")
                                        TNCtete.Value = Cells(Lig, "G")
                                    Tzonetete.Value = Cells(Lig, "N")
                                Tatatete.Value = Cells(Lig, "L")
                            TDQn.Value = Cells(Lig, "R")
                        TNdqN.Value = Cells(Lig, "T")
                    Tdero.Value = Cells(Lig, "S")
                TamAero.Value = Cells(Lig, "J")
            TDeroAmaero.Value = Cells(Lig, "K")
                    
        End With
          
    
        End If
Next
End Sub