Configuration d'une combobox VBA

Bonjour à tous,

J'ai une combobox alimenté par ce code :

 Private Sub UserForm_Activate()
'Alimentation des noms en combobox1 via la feuille FTP
        Sheets("FTP").Activate
        'Selection de la derniere ligne utilisée colonne de la feuille FTP
        D_L = Cells.Find("A", , , , xlByRows, xlPrevious).Row
        'Definition liste combo
        ComboBox1.RowSource = Sheets("FTP").Range(Cells(2, 2), Cells(D_L, 2)).Address

Cela marche très bien mais depuis que j'ai mis des formules et que je l'ai est tiré sur la feuille excel (en colonne G et non en colonne A), cette combobox pense que la colonne A descend très loin et du coup le curseur de la combobox est tout petit alors que seul 5 noms sont entrés.

Auriez vous une idée pour que la sélection s'arrete avec le dernier nom entré en colonne A ? Je pense qu'il s'agit de jouer sur les "," après le "A" mais je sais pas laquelle :(

Merci d'avance