[Excel] annuler rétablir innactif

Bonjour à tous,

J'ai un soucis avec un fichier Excel.

Le problème viens de la flèche annuler rétablir qui est grisée et Ctrl + z impossible.

J'ai 3 macros :

- RAZ filtres
- envoie d'un mail par un bouton
- Auto save en cas d'inactivité de plus de 15 mins (fichier partagé)

Je pense que le soucis viens de cette dernière mais je n'arrive pas à voir où...

Module

Option Explicit
Option Private Module
'Ti
'Delai est le temps d'inactivité maxi en minutes
Const Delai = 15
Sub Programmation()
Dim Heure As Date
  Heure = Now + TimeValue("00:" & Delai & ":00")
  ThisWorkbook.Names.Add Name:="ChronoTime", RefersTo:=Heure
  ThisWorkbook.Names.Add Name:="Chrono", RefersTo:=0
  Application.OnTime Heure, "Interruption"
End Sub
Private Sub Interruption()
  With ThisWorkbook
    If .Sheets(1).Evaluate("Chrono") = 0 Then
      .Save
      .Close
    Else
      Programmation
    End If
  End With
End Sub
Sub SupprimeInterruption()
Dim Heure As Date
 On Error Resume Next
Heure = ThisWorkbook.Sheets(1).Evaluate("ChronoTime")
 Application.OnTime Heure, "Interruption", schedule:=False
End Sub

Thisworkbook

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 SupprimeInterruption
End Sub
Private Sub Workbook_Open()
  Programmation
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
  ThisWorkbook.Names("Chrono").Value = 15
End Sub

Si quelqu'un pouvais m'aider !

Merci !!!