Option Explicit
Sub CréerDateDernSvg()
Dim Cel As Range, Wbk As Workbook, Rép As VbMsgBoxResult
On Error Resume Next
Set Cel = Selection
If Err Then MsgBox "Sélectionner une cellule du classeur où vous voulez créer le nom ""DernSvg"".", _
vbExclamation, "CréerDateDernSvg": Exit Sub
Set Wbk = Cel.Worksheet.Parent
Rép = MsgBox("Créer le nom ""DernSvg"" dans :" & vbLf & Wbk.FullName _
& vbLf & "Faudra-t-il l'afficher en :" _
& vbLf & Cel.Address(False, False, xlA1, True) & " ?", vbYesNoCancel, "CréerDateDernSvg")
If Rép = vbCancel Then Exit Sub
Wbk.Names.Add "DernSvg", Wbk.BuiltinDocumentProperties("Last Save Time")
If Rép = vbNo Then Exit Sub
Cel.Formula = "=DernSvg"
Cel.NumberFormat = "d/mm/yyyy hh:mm:ss"
End Sub