Se position sur une cellule en fonction de la date en VBA

Bonjour

Dans le fichier joint je souhaiterai sélectionner la cellule correspondante au mois ainsi qu'à l'année en cours.

Celle-ci se trouvant sur la ligne 4.

Donc pour le mois de janvier 2021, j'aimerais que ce soit la cellule correspondante à cette date qui soit sélectionnée.

Et ceci à l'ouverture du classeur (je sais qu'il faudra mettre ce code dans Private Sub Workbook_open.

Merci.

Salut Papoumac,

si l'année renseignée en [P2] correspond à l'année en cours, la macro cale la colonne du mois en cours à gauche de l'écran.
Est-ce cela que tu désires ?

Private Sub workbook_open()
'
If [P2] = Year(Date) Then ActiveWindow.ScrollColumn = 2 + ((Month(Date) - 1) * 4)
'
End Sub

A+

Merci pour cette solution.

J'ai trouvée une autre solution. Voir fichier joint.

Encore merci.