Insertion automatique de ligne sur une plage de cellule

Private test As Boolean 'déclare la variable test


Private Sub Worksheet_Change(ByVal Target As Range)
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim pl As Range 'déclare la variable pl (PLage)

If test = True Then Exit Sub 'si test est vraie, sort de la procédure
dl = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row 'définit la dernière ligne dl
Set pl = Range("B9:I" & dl) 'définit la plage pl
If Application.Intersect(Target, pl) Is Nothing Then Exit Sub 'si le changement a lieu ailleurs que dans la plage pl, sort de la procédure
If Application.WorksheetFunction.CountA(Application.Intersect(Rows(Target.Row), pl)) = 1 Then 'condition : si le nombre de valeurs dans la ligne du changement est égal à 1
    test = True 'définit la variable test (évite la boucle à chaque changement)
    Rows(Target.Row).Copy 'copie la ligne de la celule editée
    Cells(Target.Row + 1, 1).Insert shift = xlDown 'l'insère une ligne en dessous
    Range(Cells(Target.Row + 1, 1), Cells(Target.Row + 1, 9)).ClearContents 'supprimme les données de la ligne insérée
    test = False 'redéfinit la variable test
End If 'fin de la condition
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim i As Integer, j As Long, Mfc As FormatCondition, c As Range, Ws1 As Worksheet
    On Error GoTo fin ' en cas de mauvaise manipulation, ça plante sur l'ordre suivant
    Application.EnableEvents = False
    Set Ws1 = Sheets("MFC")
    For i = 1 To Target.FormatConditions.Count
        Set Mfc = Target.FormatConditions(i)
        If UCase(Left(Mfc.Formula1, 7)) = "=MA_MFC" Then
            Ws1.Range("A1").Value = Target.Value
            Set c = Nothing
            For j = 2 To Ws1.Range("A65536").End(xlUp).Row
                If Ws1.Range("A" & j) = True Then
                    Set c = Ws1.Range("A" & j)
                    Exit For
                End If
            Next j
            If c Is Nothing Then Set c = Ws1.Range("A1")
            c.Copy
            Target.PasteSpecial (xlPasteFormats)
            Application.CutCopyMode = False
        End If
    Next i
    Application.EnableEvents = True
fin:
    On Error GoTo 0
End Sub