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