XL 2013 date fin de moi dans label

Private Sub UserForm_Initialize()
'
Dim x As Date

    With Me.SpinButton1
        .Min = 1 'Valeur mini
        .Max = 12 'Valeur maxi
        'Spécifie le déplacement se produisant lorsque l'utilisateur clique sur
        'les flèches de défilement dans le contrôle SpinButton
        '(La valeur par défaut = 1)
        .SmallChange = 1
        .Value = Month(Now())
    End With
    Label1.Caption = SpinButton1.Value

    With SpinButton2
        .Min = 2000 'Valeur mini
        .Max = 2100 'Valeur maxi
        'Spécifie le déplacement se produisant lorsque l'utilisateur clique sur
        'les flèches de défilement dans le contrôle SpinButton
        '(La valeur par défaut = 1)
        .SmallChange = 1
        .Value = Year(Now())
    End With
    Label2.Caption = SpinButton2.Value

    x = CDate(Day(Now) & "/" & Label1.Caption & "/" & Label2.Caption)
    Label3.Caption = CDate(Application.WorksheetFunction.EoMonth(x, 0))

End Sub

Dim Jour As Date
Private Sub SpinButton1_Change()
Label1.Caption = SpinButton1.Value
Jour = CDate("1-" & Label1.Caption & "-" & Label2.Caption)
Label3.Caption = DJ(Jour)
End Sub

Private Sub SpinButton2_Change()
Label2.Caption = SpinButton2.Value
Jour = CDate("1-" & Label1.Caption & "-" & Label2.Caption)
Label3.Caption = DJ(Jour)
End Sub

Function DJ(D As Date) As Date
DJ = DateSerial(Year(D), Month(D) + 1, 0)
End Function

Private Sub UserForm_Initialize()
Label1.Caption = SpinButton1.Min
Label2.Caption = SpinButton2.Min
Label3.Caption = CDate("1-" & SpinButton1.Min & "-" & SpinButton2.Min)
End Sub

Private Sub UserForm_Initialize()
    Me.SpinButton1.Value = DateDiff("m", DateSerial(2021, 1, 1), Date)
End Sub


Private Sub SpinButton1_Change()
Dim Dt As Date, Sng As Single

    Sng = Me.SpinButton1.Value / 24 / 12
    Dt = DateAdd("m", 1, DateSerial(2021 + Hour(Sng), 1 + Minute(Sng) / 5, 1))
    Me.Label1.Caption = DateAdd("d", -1, Dt)
End Sub