Microsoft 365 Macro "suicide" bloque et ne quitte pas Excel

Sub suicide()
    
  
    Dim Ndx         As Integer
    


    
    With ThisWorkbook
        
        Application.DisplayAlerts = False
        
        ActiveWorkbook.SaveAs Filename:="C:\Users\icimonnom\Desktop\blablabla.xlsm", _
                              FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        
        Application.DisplayAlerts = False
        
        For Ndx = 1 To Application.RecentFiles.Count
            If Application.RecentFiles(Ndx).Path = .FullName Then
                Application.RecentFiles(Ndx).Delete
                Exit For
            End If
        Next Ndx
        .ChangeFileAccess Mode:=xlReadOnly
        Kill .FullName
        .Close savechanges:=False
    End With
    
    Application.ScreenUpdating = True
    Application.DisplayFullScreen = False
    
    Application.Cursor = xlDefault
    
    Application.Quit
    
End Sub