Etirer forumle jusqua la dernière cellule vide moins une

Bonjour a vous,

J'ai une formule, et j'aimerais avoir, si possible une macro pour l'étirer sur la même colonne jusqu’à la première cellule vide, moins une.

La formule est:

Si(ESTVIDE(A2!D2);D3;D2)

Merci a vous.

Bonjour

Colonne de référence D

Formule en E

Sub test()
  With Range("E2:E" & Range("D" & Rows.Count).End(xlUp).Row - 1)
    .Formula = "=IF(ISBLANK('A2'!RC[-1]),RC[-1],R[1]C[-1])"
  End With
End Sub

Merci a toi banzai64.