Microsoft 365 Réinitialisation de la valeur d’un label selon une condition

Bonjour, j’ai un userform comportant un spinbutton pour lequel les valeurs s’affiche sur un label. Et les données du userform sont enregistrées dans une feuille avec plusieurs colonne (un tableau en fait). Dans la première colonne j’ai la date, la seconde l’index,… Je souhaiterais qu’à chaque fois que je change de date dans mon userform, mon label.caption soit réinitialisé à 1.

J’ai essayé un code qui ne marche pas:

Private Sub labelcaptionreset()

Dim DateMax As Range
Dim DateMax1 As Range
Dim last_row As Range

last_row = Sheets(«Data»).Range(«A1»).End(xlDown).Row

DateMax = Sheets(«Data»).Range(last_row, 1).Value

DateMax1 = Sheets(«Data»).Range(last_row, 1).Value - 1

If DateMax.Value <> DateMax1.Value Then
lblIndex.Caption = 1

End If

End Sub