[VBA] Copie de cellule

Bonjour,
J'arrive à copier une formule dans toutes les cellules d'une colonne jusqu'à cellule vide

    Range("A2").Select                                                      '
    '                                                                       '
    ' Boucle tant que pas vide                                              '
    Do While Not (IsEmpty(ActiveCell))                                      '
    ' Inscrit une formule dans la cellule ayant pour référence              '
    ' la ligne active et la colonne 5 (colonne E)                           '
        Cells(ActiveCell.Row, 16).Formula = "=ROUNDUP(RC[-1]/9500,0)"       '
    ' Passe à la ligne suivante                                             '
        Selection.Offset(1, 0).Select     

Il me faut la même chose mais faisant passer du texte et non une formule :) je sais c'est pas dur mais j'y arrive pas...