Mise a jour bouton

Bonjours a tous et toutes,

J'ai crée 2 boutons sur ma feuille excel pour choisir une date, chaque bouton prend une date different J et J+1 dans sont intitulé caption.

Je les ai créé hier et la mise a jour de date c'est fait correctement en lançant manuellement le code par F8. Mais aujourd'hui, j'ouvre le fichier et les bouton on la mauvaise date dans caption, mais traite bien l'info au bon jour dans ma feuille excel, j'ai du loupé un truc pour mettre a jour les caption de mes boutons.

Ci-joint le code initialize des boutons :

Private Sub Commandbutton2_Initialize()
CommandButton2.BackColor = vbCyan: CommandButton2.Visible = True
dat = Format(Date, "dddd dd mmmm yyyy")
CommandButton2.Caption = dat
If Left(dat1, 3) = "dim" Then CommandButton2.BackColor = vbRed: CommandButton2.Visible = False
End Sub

Private Sub commandbutton3_Initialize()
CommandButton3.BackColor = vbCyan: CommandButton3.Visible = True
dat1 = Format(Date + 1, "dddd dd mmmm yyyy")
CommandButton3.Caption = dat1
If Left(dat1, 3) = "sam" Then CommandButton3.BackColor = vbRed: CommandButton3.Visible = False
End Sub


Et le code click de ces dernier qui se trouve juste en dessous :

Private Sub CommandButton2_Click()
CommandButton3.BackColor = vbRed
CommandButton2.BackColor = vbGreen
datejourimp = Format(Date, "dddd dd mmmm")
Cells(7, 5) = datejourimp
End Sub

Private Sub CommandButton3_Click()
CommandButton2.BackColor = vbRed
CommandButton3.BackColor = vbGreen
datejourimp = Format(Date + 1, "dddd dd mmmm")
Cells(7, 5) = datejourimp
End Sub

A noté que la cells(7, 5) se mets bien a jour :
quand on click sur :
Le bouton 2 marqué jeudi 10 fevrier la cells(7, 5) affiche vendredi 11 fevrier
Le bouton 3 marqué vendredi 11 fevrier la cells(7, 5) affiche samedi 12 fevrier

Les boutons ne s'inialisent pas a l'ouverture du classeur, juste par F8

Si qq1 peut m'aidé

Merci d'avance et bon courage a tous et bonne journée

Manu70