Private Sub ListBox1_Click()
Set F = Feuil2
'pour test 1
MsgBox ListBox1.Value
'pour test 2
MsgBox F.Cells(ListBox1.ListIndex + 3, 1).Address
End Sub
Private Sub UserForm_Initialize()
Set F = Feuil2
ListBox1.List = F.Range("A3:A" & F.Cells(Rows.Count, 1).End(3).Row).Value
End Sub