Bonjour,
Exemple avec 15 colonnes discontinues.
Private Sub UserForm_Initialize()
Set f = Sheets("bd")
TblBD = f.Range("A2:Z" & f.[A65000].End(xlUp).Row).Value
Dim TblRes: ReDim TblRes(1 To UBound(TblBD), 1 To 15)
col = 0
For Each k In Array(1, 2, 4, 7, 8, 9, 10, 11, 12, 20, 21, 22, 23, 24, 25) ' colonnes à récupérer
col = col + 1
For i = 1 To UBound(TblBD): TblRes(i, col) = TblBD(i, k): Next i
Next k
Me.ListBox1.List = TblRes
End Sub
Pour un ListBox avec condition
Private Sub ComboBox1_click()
Dim Tbl(): j = 0
For i = 1 To UBound(BD)
If BD(i, 1) = Me.ComboBox1 Then
j = j + 1: ReDim Preserve Tbl(1 To Ncol, 1 To j)
c = 0
For Each k In ColVisu
c = c + 1: Tbl(c, j) = BD(i, k)
Next k
End If
Next i
Me.ListBox1.Column = Tbl
Boisgontier