Salut,

Si ta liste s'appel lb_liste, tu peux faire comme ça :


Private Sub lb_liste_AfterUpdate()
If Me.lb_liste.ListIndex <> 0 Then
MsgBox Me.lb_liste.Column&#40;0, Me.lb_liste.ListIndex - 1&#41;...