Impression automatique à un jour défini à l'ouverture d'un fichier

Bonsoir le forum,

J'ai une macro qui s'exécute à chaque ouverture d'un fichier Excel pour l'impression automatique de certains onglets.

Voici la macro actuelle

Private Sub Workbook_Open()
If Sheets("FeuilleDate").[A65536].End(xlUp).Value <> Date Then
MsgBox "On met la date du jour et on imprime"
'Mettre ici le code d'impression et enlever le message ci-dessus
Sheets("FeuilleDate").[A65536].End(xlUp).Offset(1, 0).Value = Date
Else
MsgBox "On ne fait rien"
'Enlever ce message
End If
End Sub

Cliquez pour agrandir...

J'aimerais faire en sorte que la macro consèrve la même fonction mais qu'elle s'exécute chaque lundi uniquement alors que le fichier est ouvert 7/7.

Quelqu'un aurait-il une idée ?

Merci d'avance )