Problème incrémentation formule suite à l'ajout de ligne.

Private Sub CommandButton1_Click()
[MODELE].Copy                                   'copie la plage
Range("A8").Insert Shift:=xlDown                'l'insère en ligne 8 en décalant vers le bas
Range("E8:F8").ClearContents                    'efface les données en "E8:F8"
Application.CutCopyMode = False                 'désactive le copier/coller
End Sub

'intervient lors d'un double-click sur une cellule
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 8 And Target.Row > 7 Then    'si colonne = 8 et ligne > 7
    Cancel = True                               'inhibe le curseur
    Target = IIf(Target = "", "X", "")          'si cellule vide --> "X" et inversement
End If
End Sub

'intervient lors du changement de la valeur d'une ou plusieurs cellules
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 And Target.Row > 7 And IsNumeric(Target) Then 'dito précédemment
    If Target > 0 Then
        Application.EnableEvents = False        'désactive les événements
        Target = Target * -1                    'multiplie la cellule par -1
        Application.EnableEvents = True         'résactive les événements
    End If
End If
End Sub