Private Sub ListBox1_Click()
MsgBox "Vous avez cliqué sur :" & vbCrLf & ListBox1.Value & Space(1) & Me.ListBox1.Column(1, Me.ListBox1.ListIndex), vbInformation
End Sub
Private Sub UserForm_Initialize()
With Sheets(1)
ListBox1.List = Range(.Cells(2, 1), .Cells(Rows.Count, 2).End(3)).Value
End With
End Sub
'On peut aussi utiliser RowSource
'mais c'est l'un ou l'autre, pas les deux ;-)
'Private Sub UserForm_Initialize()
'With Sheets(1)
'ListBox1.RowSource = Range(.Cells(2, 1), .Cells(Rows.Count, 2).End(3)).Address
'End With
'End Sub
'