Microsoft 365 VBA Problème dans un évènement Before Save

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  ThisWorkbook.Save

...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Dim C As Range
  Application.EnableEvents = False
  Application.ScreenUpdating = False
  With Sheets("SAISIE")
    .Unprotect Password:="Jacques1956"
    For I = 7 To .Range("B7", .Cells(.Rows.Count, 2).End(xlUp)).Rows.Count - 2 Step 8
      .Cells(I, 7).MergeArea.UnMerge
      .Cells(I, 2).Resize(8, 69).Sort .Cells(I, 2), xlAscending, Header:=xlNo
      .Cells(I, 7).Resize(8).Merge
    Next I
    .Protect Password:="Jacques1956", AllowSorting:=True, AllowFiltering:=True, AllowFormattingColumns:=True, userinterfaceonly:=False
  End With
  Application.EnableEvents = True
  Application.ScreenUpdating = True
End Sub

.Cells(I, 7).MergeArea.UnMerge