Private Sub ListBox1_Click()
Dim i&, j&, x&, fin& i = ? / j = ? / x = ? / fin = "le plus possible?!?"
If ListBox1.ListIndex = -1 Then Exit Sub ça j'ai compris!
ListBox2.Clear ça aussi!
With Sheets(ListBox1.Value) ça aussi!
fin = .Range("A" & Rows.Count).End(xlUp).Row ça plus ou moins... c'est pour qu'il aille chercher les données (cllules pleines) depuis le bas?
For i = 1 To fin la réponse sera plus haut... i = ?
If .Range("B" & i) <> "" Then
ListBox2.AddItem .Range("B" & i).Value B??
For a = 1 To 4 a??
ListBox2.List(ListBox2.ListCount - 1, a) = .Cells(i, a)
Next a
End If
Next i
End With
End Sub