Bonjour Adrien, bonjour le forum,
Hors contexte difficile de te donner une réponse vraiment efficace... Essaie comme ça :
Dim NC As Byte
Dim TT() As Variant
NC = Me.ListBox1.ColumnCount
ReDim TT(NC)
For I = 0 To NC - 1
TT(I) = Me.ListBox1.Column(I, Me.ListBox1.ListCount - 1)
Next I