Pour être plus précis, je souhaiterai mettre un code du genre :
Sub Copierformule()
Dim DL As Long
With ActiveSheet
DL = .Range("A" & Rows.Count).End(xlUp).Row
.Range("D2:D" & DL).Formula = .Range("D2").Formula
End With
End Sub
de sorte à copier la formule dans B2, D2, F2 dans...