XL 2010 Autofil - Recopie incrémentée

Sub Evolution_Bis()
Dim DL&
DL = Cells(Rows.Count, 1).End(3).Row
Range("C5:C" & DL).FormulaR1C1 = "=((RC[-1]/R[-1]C[-1])-1)"
Range("C5:C" & DL).NumberFormat = "0.00%"
End Sub

Sub Evolution()
 Range("C5").Select
    ActiveCell.FormulaR1C1 = "=((RC[-1]/R[-1]C[-1])-1)"
    Selection.NumberFormat = "0.00%"
    Selection.AutoFill Destination:=Range("C5:C" & Range("B" & Rows.Count).End(xlUp).Row)
End Sub

Sub Evolution_Ter()
Dim DL&: DL = Cells(Rows.Count, 1).End(3).Row: [C5].NumberFormat = "0.00%"
[C5] = "=((RC[-1]/R[-1]C[-1])-1)": Range("C5:C" & DL).FillDown
End Sub