date de modification du fichier dans en-tête

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim x
x = Format(FileDateTime(ActiveWorkbook.FullName), "dd/mm/yy hh:mm:ss")
'x te donne la date du dernier enregistrement du classeur
'y te donne la date du dernier changement dans un onglet
    
    With ActiveSheet.PageSetup
        .CenterHeader = "Dernière modification effectuée le : " & x  'ou y
    End With

End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
y = Format(Now, "dd/mm/yy hh:mm:ss")
End Sub