Insérer des lignes automatiquent

Split("Feuil1!$D$11:$K$13",":")

Private Sub Worksheet_Change(ByVal Target As Range)
    'Comparer l'adresse de la cellule changée (Target)
    'avec l'adresse de la dernière cellule de la plage
    'Nomméee 'ENTREES'
    If Target.Address = Split(Range("ENTREES").Address, ":")(1) Then
        If Target <> "" Then AjouterLigne "ENTREES"
    ElseIf Target.Address = Split([SIZE=3][COLOR=red]Range("DEPARTURE").[U]Offset(, -1)[/U][/COLOR][/SIZE].Address, ":")(1) Then
        If Target <> "" Then AjouterLigne "DEPARTURE"
    End If
End Sub

Sub AjouterLigne(NomPlage As String)
    On Error Resume Next
    Dim plage As Range
    Set plage = Range(NomPlage)
    If Err.Number > 0 Then
        MsgBox "Vérifiez le nom de la plage '" & NomPlage & "' et re-définissez le", vbInformation, "AjouterLigne"
        Exit Sub
    End If
 
    Err.Clear
   [COLOR=red] On Error GoTo FinAjoutLigne[/COLOR]
[COLOR=red] [/COLOR]
[COLOR=red]    'Désactiver la gestion évènementielle pour éviter les appels récursif[/COLOR]
[COLOR=red]    Application.EnableEvents = False[/COLOR]
[COLOR=red] [/COLOR]
    'Insert une ligne entière
    plage.Rows(plage.Rows.Count + 1).EntireRow.Insert xlShiftDown
 
    'Copy le format de la ligne du dessus (comme CTRL+B)
    plage.Rows(plage.Rows.Count).AutoFill plage.Rows(plage.Rows.Count).Resize(2), xlFillFormats
 
    'redéfinition de la nouvelle plage
    Set plage = plage.Resize(plage.Rows.Count + 1)
 
    'Redéfinition du nom
    Application.Names(NomPlage).RefersTo = "='" & plage.Parent.Name & "'!" & plage.Address
 
[COLOR=red]FinAjoutLigne:[/COLOR]
[COLOR=red]  'Rétablir la gestion évènementielle[/COLOR]
[COLOR=red]  Application.EnableEvents = True[/COLOR]
 
[COLOR=red]  'Signaler si une erreur s'est produite[/COLOR]
[COLOR=red]  If Err.Number > 0 Then[/COLOR]
[COLOR=red]      MsgBox "Une erreur s'est produite lors de l'ajout de la ligne:" & vbCrLf & vbCrLf & _[/COLOR]
[COLOR=red]          Err.Number & ": " & Err.Description, vbExclamation, "AjouterLigne"[/COLOR]
[COLOR=red]  End If[/COLOR]
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
 
    'Si la cellule est vide->sortir
    If IsEmpty(Target) Then Exit Sub
 
    'Vérifier si on est dans la dernière ligne d'une plage
    If Union(Target, Range("ENTREES").Rows(Range("ENTREES").Rows.Count)).Address = Range("ENTREES").Rows(Range("ENTREES").Rows.Count).Address Then
        AjouterLigne "ENTREES"
    End If
End Sub