XL 2010 Ajout et suppression de ligne de tableau quand la feuille est protégé!

Sub Saisie()
  If ActiveSheet.Name <> "Feuille1" Then Exit Sub
  Dim cel As Range: Set cel = [J18]
  Application.ScreenUpdating = 0: Application.Calculation = -4105
  With Worksheets("Feuille2")
    .Select: .Unprotect
    ActiveSheet.ListObjects("Tableau615").ListRows.Add 1
    ActiveSheet.ListObjects("Tableau504").ListRows.Add 2
    [K2] = cel: [F3] = cel: cel.ClearContents
    .Protect
  End With
  Worksheets("Feuille1").Select
End Sub

Sub Archiver()
  Dim Derlig&, Premlig&
  Premlig = Worksheets("Archive").Cells(Rows.Count, 2).End(3).Row + 1
  If [Feuille1!B1] = Worksheets("Archive").Cells(Premlig - 1, 1) Then Exit Sub
  Derlig = Worksheets("Feuille1").Cells(Rows.Count, 2).End(3).Row: Application.ScreenUpdating = 0
  Worksheets("Archive").Select: Worksheets("Feuille1").Range("B5:H" & Derlig).Copy
  Cells(Premlig, 2).PasteSpecial -4163: Application.CutCopyMode = 0
  Derlig = Cells(Rows.Count, 2).End(3).Row
  With Cells(Premlig, 1)
    .Value = Date: .AutoFill .Resize(Derlig - Premlig + 1), 1
  End With
  Worksheets("Feuille1").Select
End Sub