VBA : listbox de valeur d'une ligne

Bonjour, je recherche une équivalence à :

  With Worksheets(1)
    'pour la dernière ligne de la colonne L
    DCL = .Range("B" & Rows.Count).End(xlUp).Row
    Set Plage = .Range("B3:B" & DCL)
    For Each cel In Plage
      Me.ListBox1.AddItem .Range("B" & cel.Row)
    Next cel
  End With

Mais pour une colonne . J'ai donc fais :

With Worksheets(1)
'pour la dernière ligne de la colonne L


DCL = .Range("E3").End(xlToRight).Address
MsgBox (DCL)
'Cells(1, Cells.Columns.Count).End(xlToLeft).Column
Set Plage = .Range("E3:" & DCL)
For Each cel In Plage
Me.ListBox5.AddItem .Range(cel.Columns & "3")
Next cel
End With




mais mon " Me.ListBox5.AddItem .Range(cel.Columns & "3") " ne fonctionne pas apparement je ne sais pas ou je rate ^^

Merci d'avance ! :)