XL 2010 alimenter indifférement plusieurs listbox sur un userform

Private Sub UserForm_Initialize()
With Me.ListBox1
    .ColumnCount = 2
    .List = Worksheets("A").Range("E3:F" & Worksheets("A").Cells(Application.Rows.Count, "F").End(xlUp).Row).Value
End With
With Me.ListBox2
    .ColumnCount = 2
    .List = Worksheets("B").Range("B4:C" & Worksheets("B").Cells(Application.Rows.Count, "C").End(xlUp).Row).Value
End With
With Me.ListBox3
    .ColumnCount = 2
    .List = Worksheets("C").Range("L4:M" & Worksheets("C").Cells(Application.Rows.Count, "M").End(xlUp).Row).Value
End With
End Sub