XL 2016 Excel Formule ou Fonction personnalisée pour afficher la date et l'heure de modification du classeur

'-----------------------------------------------------------------------------
'Fonction personnalisée pour la date et l'heure de modification de ce classeur
'-----------------------------------------------------------------------------
Function DateTimeWorkbook()
    Dim FSO As Object
    Dim FileItem As Object
    Dim DateLastModified As Date

    Application.Volatile
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set FileItem = FSO.GetFile(ThisWorkbook.FullName)
    DateLastModified = FileItem.DateLastModified
   
    'Return value
    DateTimeWorkbook = Format(DateLastModified, "dd/mm/yyyy hh:mm")
End Function