Modifier ce code pour enregistrer seulement ma feuille active

Public Temps as Date

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Now > Temps Then
    Temps = Now + TimeValue("00:05:00")
    Application.OnTime Temps, "EnregistrerFichier"
End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.OnTime Temps, "EnregistrerFichier", , False
    On Error GoTo 0
End Sub

Option Explicit
Dim Tps As Date
 
Sub Chrono()
    'Programmation de l'évènement toutes les secondes
    Tps = Now + TimeValue("00:05:00")
    Application.OnTime Tps, "Tempo"
    EnregistrerFichier ' appelle la macro d'enregistrement
End Sub
 
Sub StopChrono()
    On Error Resume Next
    'Stopper la gestion de l'évènement OnTime en cours
    Application.OnTime Tps, "Tempo", , False
End Sub

Option Explicit
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    StopChrono
End Sub

Private Sub Workbook_Open()
    Chrono
End Sub