Bonjour le forum et bonne journée

je cherche a afficher dans une label le contenu de la dernière ligne d'une listbox sans clicker dedans automatiquement.

j'ai met ce code mais apparemment il m'affiche la première ligne et non la dernière après avoir cliquer sur la listbox chose que je désire pas.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Dim n As Integer
Dim Txt As String
Dim i As Integer
 
n = Feuil1.ListBox2.TopIndex = Feuil1.ListBox2.ListCount
    For i = 0 To Feuil1.ListBox2.ListCount
        If Feuil1.ListBox2.Selected(i) = True Then
            Txt = Txt & Feuil1.ListBox2.Column(2, n) 
        End If
    Next i
    Feuil1.Label1.Caption = Txt
Merci d'avance de votre aide