LbAujourdhui.Tag = Empty 'Ici à l'ouverture on vide le Tag
LbAujourdhui.Caption = Application.Proper(Format(Date, "dddd")) 'Left(C$, I - 1) & vbLf & Mid(C$, I + 1)
Dans la procédure "BoutonJourCalendrier(CtrlBouton As Control) "
'J 'ai rajouté sous CalendrierMiseAjour NoJour & "/" & NoMois & "/" & NoAn 'passage données au format date !
LbAujourdhui.Tag = Format(NoJour & "/" & NoMois & "/" & NoAn, "00000") 'ceux-ci
'puis lors l'appui sur le Bouton OK , On teste la Propriété Tag du Label "LbAujourdhui"
'ainsi si l'on n'a pas cliquer sur une date pas d'affichage sur la feuille lors de la fermeture