Private Sub UserForm_Initialize()
DateSelect = Application.Proper(Format(Now, "dddd dd mmmm yyyy"))
Me.DateSelect_Année = Year(Now)
End Sub
Private Sub DateSelect_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
fmSTD_Calendrier.SelectDateCTRL DateSelect
DateSelect = Application.Proper(Format(DateSelect, "dddd dd mmmm yyyy"))
Me.DateSelect_Année.Caption = Right(DateSelect, 4) 'autre solution possible
End Sub