Erreur Code

Public Function Value(Affich_Barre_Titre As Boolean, Optional Inhib As Boolean, Optional L#, Optional T#) As Date
Dim Liste, Sep$, maDate As Date
   'récupère, via la Function Liste_Parametres, les Private Const paramétres du calendrier
   Liste = Liste_Parametres
   'création de l'userform (Caption, Width, Height et Optional Left et Top)
   Call NewUsf(Format(Date, "mmmm yyyy"), 7 * (CInt(Liste(1, 3)) + CInt(Liste(4, 3))) + CInt(Liste(4, 3)) + 5, CInt(Liste(5, 3)) * 2 + CInt(Liste(0, 3)), L, T)
   'Procédure de création des contrôles du Calendrier
   Call Creer_Calendrier(Date, "", Liste, Affich_Barre_Titre)
   'Procédure inhibant la croix de fermeture
   If Affich_Barre_Titre = False Then Call AfficheTitleBarre(Usf.Caption, Affich_Barre_Titre)
   If Inhib = False Then Call Usf_Initialize
   'Attribution du Focus au bouton correspondant à la date du jour
   Usf.Controls("Btn_Jours" & Day(Date)).SetFocus
   'Affichage de l'userform
   Usf.Show
   'le séparateur de date (selon le choix systeme)
   Sep = Application.International(xlDateSeparator)
   'Gestionnaire d'erreur => Si Usf.Tag ne contient rien
   On Error GoTo Fin
   
   '===============================================================================================================
   'Attribution à Value de : Usf.Tag (jour) et Usf.Caption (Mois et Année)
   maDate = IIf(Usf.Tag = "X", Date, CDate(Usf.Tag & Sep & Month(Usf.Caption) & Sep & Right(Usf.Caption, 4)))
    'exemple de modification possible :
   'maDate = Format(maDate, "mm/dd/yyyy")
   Value = maDate
   '===============================================================================================================
   
   'UnLoad l'userform entraine la procédure Class_Terminate
   Unload Usf
   Exit Function
Fin:
   'En cas d'erreur, la valeur de notre calendrier
   Value = CDate(Date)
End Function