Ecrire a la suite colonne après colonne

Bonsoir a tous.
A partir d'une userform(rectifil) j'ai un combobox (combobox1) qui a pour source la colonne A d'une feuille(basefil).
Sur la même userform j'ai aussi un textbox(textbox1) ou je renseigne une donnée qui doit s'ecrire dans la colonne voisine de la source de données.
ex:Si je selectionne un chiffre de la colonne A ,cellule A1, je doit ecrire la valeur du textbox dans la cellule B1 si celle-ci est vide ou scruter jusqu'a la premiere cellule que je vais trouver vide ceci sur la même ligne.
Quelqu'un aurai-t-il une solution ?
Merci
Bonne soirée

Bonsoir dedenet2,
Pour écrire dans une colonne a la suite et en scrutant les cellules,j'ai un code du type
Sheets("basefil").[a65536].End(xlUp).Offset(1, 0).Value = Me.combobox .Value
Je désire faire la même chose mais en scrutant colonne par colonne et non pas ligne par ligne comme dans l'exemple ci-dessus.
De plus il me faut définir une variable pour savoir de quelle ligne il s'agit.
Il s'agit de la colonne "A" dont j'utilise les données pour remplir ma combobox.
J'espère avoir été plus clair.
Merci