Sub NomNonVisible()
Dim dte As Date
dte = DateSerial(2020, 6, 10)
'
' Création d'un nom non visible
Application.Names.Add "MonMN", dte, False
'
' Affichage de la valeur actuelle du nom
Debug.Print Format([MonMN], "dd mmmm yyyy")
'
' Modification de la valeur du nom
Application.Names("MonMN").RefersTo = DateSerial(Year(dte), Month(dte) + 6, Day(dte))
'
' Réaffichage après modification
Debug.Print Format([MonMN], "dd mmmm yyyy")
End Sub