Private Sub UserForm_Initialize()
Static RefAnnee As Integer
Dim Dte As Long
Dim Debut As Date
Dim Fin As Date
Dte = CLng(Date) 'date du jour
Select Case True
Case Dte >= CLng(DateSerial(Year(Dte), 9, 1)) And Dte <= CLng(DateSerial(Year(Dte), 12, 31))
Debut = CLng(DateSerial(Year(Dte), 9, 1))
Fin = CLng(DateSerial(Year(Dte) + 1, 8, 31))
RefAnnee = Year(CDate(Debut))
Case Dte >= CLng(DateSerial(Year(Dte), 1, 1)) And Dte <= CLng(DateSerial(Year(Dte), 8, 31))
Debut = DateSerial(Year(Dte) - 1, 9, 1)
Fin = DateSerial(Year(Dte), 8, 31)
RefAnnee = Year(CDate(Debut))
End Select
Me.TxtSaison.Text = Year(Debut) & "-" & Year(Fin)
Me.TxtSaison.Tag = RefAnnee
End Sub