indiquer la date dans userform de la derniere activation de la macro

Private Sub CommandButton1_Click()
Dim today As Date
today = Date
TextBox1.Value = today
End Sub

Private Sub CommandButton1_Click()
'.../... ta macro
TextBox1 = Now
Range("IV65536") = TextBox1
End Sub

Private Sub UserForm_Initialize()
Me.TextBox1 = Range("IV65536")
End Sub

Private Sub CommandButton1_Click()
TextBox1 = Now
ActiveWorkbook.Names.Add Name:="DER_EXEC", RefersToR1C1:=TextBox1.Text
End Sub

Private Sub UserForm_Initialize()
[COLOR="Red"]'TextBox1 = Now[/COLOR]
[COLOR="Blue"]TextBox1.Value = [DER_EXEC][/COLOR]
End Sub