Faire apparaitre un texte dans Escel

Bonjour,

J'ai un soucis de programmation avec visual basic.
J'aimerai faire apparaitre un texte dans une cellule d'un tableur excel en appuyant sur un bouton.

Par exemple, faire un bouton pour chaque jour de la semaine et dès que j'appui sur un de ces bouton, ça m'affiche dans une cellule ce que je dois faire comme :
- appui sur lundi : marquer course dans la cellule B3
- appui sur mardi : marquer "salle de sport" dans la cellule B3

et etc pour la suite de la semaine.

J'ai utilisé la commande "insertioncomment()" associé à un bouton mais ca marche pas.
Voici la macro utilisée :

Sub InsertionComment()
Dim MyCmt As String
Dim LaCell As Range

Set LaCell = Application.InputBox("Cliquez sur une cellule", Default:=ActiveCell.Address, Type:=8)
MyCmt = InputBox("Inscrivez votre commentaire")
On Error Resume Next

With LaCell
.AddComment
With .Comment
.Visible = True
.Text Text:=MyCmt
End With
End With

Merci d'avance pour votre coup de main.
Sapchrist74