Private Sub CL_Résultat(Lignes() As Long)
Dim Te(), Le&, Ts(), Ls&, C&
Te = CL.PlgTablo.Resize(, 10).Value
ReDim Ts(0 To UBound(Lignes) - 1, 0 To 9)
For Ls = 0 To UBound(Ts, 1)
Le = Lignes(Ls + 1)
For C = 0 To UBound(Ts, 2)
Ts(Ls, C) = Te(Le, C + 1)
Next C, Ls
Me.LbxSélect.List = Ts
TLgn = Lignes ' pour usage ultérieur…
End Sub