Compter nombre de ligne d'une colonne

Bonsoir a vous tous,

je sais que la question a deja ete posee mais pas dans le sens dont j'ai besoin.

Tres brievement, j'aimerais creer une macro qui dans un premier temps compte le nombre de ligne de mon classeur Draft et utlise ce resultat pour ajouter dans chaque celulle de mon classeur Upload un chiffre 1.

En gros si j'ai 23 lignes dans la colonne A mon classeur Draft, j'aimerais que ma macro ajoute dans chacune des 23 ligne de mon classeur upload, une valeur.

Je precise que je n'ai pas beaucoup, malheureusement, de connaissance en VBA et j'aimerais bien creer une macro qui puisse etre utilisee en toute circonstance.
J'ai pense a l'enregistrer mais cela ne sera que en rapport a un classeur particulier.

Voici le code que je pensais ecrire mais je ne sais pas comment utiliser la valeur contenue dans NBCELLS :/

Dim nbcells As Integer

nbcells = WorksheetFunction.CountA(Workbooks("Workbook2.xlsm").Worksheets("SAD1").Range("$A:$A"))

Une idee ???