Alimenter une listbox multi colonne

Option Explicit
Private Sub UserForm_Initialize()
Dim cel As Range
With ListBox1
    .ColumnCount = 4
    For Each cel In Range("d3:d" & Range("d65536").End(xlUp).Row)
        .AddItem cel.Value
        .List(.ListCount - 1, 1) = cel.Offset(0, -3).Value
        .List(.ListCount - 1, 2) = cel.Offset(0, -2).Value
        .List(.ListCount - 1, 3) = cel.Offset(0, -1).Value
    Next cel
End With
End Sub

Private Sub CommandButton1_Click()
Dim i As Long
    With ListBox1
        .ColumnCount = 4
        .List = Range("A3:D" & Range("D65536").End(xlUp).Row).Value
        For i = .ListCount - 1 To 0 Step -1
            If .List(i, 3) <> TextBox1.Text Then
                .RemoveItem i
            End If
        Next i
    End With
End Sub