Sub Macro1()
Dim adc As Long 'déclare la variable adc (Avant Dernière Cellule)
adc = Cells(65536, ActiveCell.Column).End(xlUp).Row - 1 'définit la variable adc
'place la formule dans les lignes 1 à adc de la colonne
Range(ActiveCell, Cells(adc, ActiveCell.Column)).Formula = "ta formule"
End Sub