VBA Pb de colonnes dans listbox

            ListBox1.AddItem .Range("A" & i)
            ListBox1.List(ListBox1.ListCount - 1, 1) = .Range("B" & i)
            ListBox1.List(ListBox1.ListCount - 1, 2) = .Range("C" & i)

Private Sub ComboBox1_Change()
Dim cpt&
Dim T()
With Sheets("suivi devis DPER")
NbLigneAtraiter = .[A65536].End(xlUp).Row
    ListBox1.Clear
    For i = 3 To NbLigneAtraiter
        If .Range("J" & i) = ComboBox1 Then
          cpt& = cpt& + 1
          ReDim Preserve T(1 To 3, 1 To cpt&)
          T(1, cpt&) = .Range("A" & i)
          T(2, cpt&) = .Range("B" & i)
          T(3, cpt&) = .Range("C" & i)
        End If
    Next i
End With
If cpt& > 0 Then ListBox1.List = Application.WorksheetFunction.Transpose(T)
End Sub

Private Sub userform_initialize()
ListBox1.List = Range("a3", Cells(Rows.Count, "c").End(xlUp)).Value
End Sub