Formule efface le titre

Salut à tous,

J'ai un petit souci, ma formule fonctionnait et maintenant plus :(

Je créé mais formule et je les fait grandir pas à pas.

Voici où mon code bug :

 Dim DerLigne As Long
    With ActiveSheet
        DerLigne = .Cells(Rows.Count, 1).End(xlUp).Row
        .Range("I2:I" & DerLigne).FormulaR1C1 = "=RC[-1]/R1C23"
    End With
  Range("J2").Select
  Application.CutCopyMode = False
  ActiveCell.FormulaR1C1 = "=RC[-1]"
  Application.CutCopyMode = False
     With ActiveSheet
        DerLigne = .Cells(Rows.Count, 1).End(xlUp).Row
        .Range("J3:J" & DerLigne).FormulaR1C1 = "=RC[-1]+R[-1]C"
    End With

Les deux formules démarre à la première ligne et provoque le bug !

Merci à vous Ciquet

Windows / Firefox 115.0