Récupérer la valeur d'une celule de la derniere ligne utilisé

Bonjour,

Le but c'est de recuperer la valeur d'une cellule excel dans une combobox, sachant que la celule appartient à la derniere ligne.

voila mon code :

Private Sub UserForm_Initialize()
Set DD = Worksheets("bd")
Dim DerniereLigne As Double
DerniereLigne = Range("A2").End(xlDown).Row
ComboBox1.Value = DD.Cells(DerniereLigne, 1)
End Sub

y'as t'il un problème au niveau de code ? sinon pourqoi sa marche pas ?

Merci