Copie automatique de lignes: problème de décalage

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <> 1 Or Target.Row < 4 Or Target.Row > Range("A65536").End(xlUp).Row + 1 Or Target.Count > 1 Then Exit Sub
  Application.EnableEvents = False
  If Target.Row = Range("A65536").End(xlUp).Row Then
    Range("A" & Target.Row & ":F" & Target.Row).Copy
    Range("A" & Target.Row + 1).Insert (xlShiftDown)
    Range("A" & Target.Row + 1 & ":E" & Target.Row + 1).ClearContents
  End If
  Application.EnableEvents = True
End Sub