Urgen combo Box!!!!!!!!!!!

Hello everyone

J'ai un probleme avec les rowsource de ma combobox
pourquoi cela ne marche -til pas?

Mon code tient compte des ajouts possibles d'info dans la
source

Private Sub UserForm_Initialize()

Dim DerCell As String
DerCell = Range("A1").End(xlDown).Address
ComboBox1.RowSource = "A2:" & DerCell
End Sub

Le problème c'st qu'une seule ligne arrive dans le combo box?????