j'vais encore fâcher mon ami ucfoutu! et comme cela, est ce que cela te convient avec cet exemple? Pas commode tout de même l'ancien, voir un peu rustre...mais de bons conseils tout de même...
Private Sub ListBox1_Change()
i = 0
Me.ListBox2.Clear
Set f = Sheets("Data")
For Each C In f.Range("B3:B" & f.[B65000].End(xlUp).Row)
If C.Offset(0, -1) = Me.ListBox1 Then
Me.ListBox2.AddItem
Me.ListBox2.List(i, 0) = C.Value
Me.ListBox2.List(i, 1) = C.Offset(0, 1).Value
Me.ListBox2.List(i, 2) = C.Offset(0, 2).Value
Me.ListBox2.List(i, 3) = C.Offset(0, 3).Value
Me.ListBox2.List(i, 4) = C.Offset(0, 4).Value
Me.ListBox2.List(i, 5) = C.Offset(0, 5).Value
Me.ListBox2.List(i, 6) = C.Row
i = i + 1
End If
Next C
End Sub