amélioration formule

bonjour à tous et à toutes,

je me suis crée un calendrier avec l'année et le mois
à l'ouverture de ce fichier il s'ouvre bien a l'année et au mois
en cours.
ce que je voudrais,que le curseur se mette au jour.
j'ai regardé dans d'autre post et archives mais je ne trouve pas
par avance merçi.


voiçi mon code


Sub Aut😵pen()
ActiveSheet.DrawingObjects('ScrollYear') = Year(Now)
ActiveSheet.DrawingObjects('ScrollMonth') = Month(Now)
End Sub et à bientôt.