Une même macro pour mettre et enlever un mot dans une select

Bonjour le forum,

Peut-on faire une macro qui puisse lors du 1er clic écrire un mot et suite à un 2è clic effacer ce mot ? et ceci sur une sélection de cellule (une ou plusieurs).

D'avance merci pour votre aide

Re,

Grace à Job75, que je remercie une nouvelle fois, j'ai eu la solution à ma demande :

Private Sub CommandButton1_Click()
 On Error Resume Next 'si Selection n'est pas un Range...
 Selection = IIf(Selection.Cells(1, 1) = "", "Bonjour", "")
 End Sub

ou

Private Sub CommandButton1_Click()
 'le texte de référence est en A1, cellule à adapter
 On Error Resume Next 'si Selection n'est pas un Range...
 If Selection.Cells(1, 1).Address = [A1].Address Then Exit Sub
 Selection = IIf(Selection.Cells(1, 1) = "", [A1], "")
 End Sub