comment récupérer la valeur max d'une cellule variable au bout d'une demi heure

Private Sub Workbook_Open()
'lance la macro "Macro1" (du Module1) 30 minutes après l'ouverture du classeur
Application.OnTime Now + TimeValue("00:30:00"), "Macro1"
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim v As Double 'déclare la variable v (Valeur)
If Target.Address <> "$A$1" Then Exit Sub 'si le changement a lieu ailleurs qu'en A1, sort de la procédure
v = Target.Value 'définit la variable v
If v > max Then max = v 'si v est supérieur à la variable max (déclarée publique) alors max prend la valeur de v
End Sub

Public max As Double 'définit la variable max
 
Sub Macro1()
MsgBox "La valeur la plus haute est : " & max 'message affichant la valeur la plus haute : max
max = 0 'réinitialise max
End Sub