Comment faire pour que dans une feuille de calcul, des valeurs d'une cellule ne soit pas imprimables?

Cette macro met en blanc le contenu des cellules à ne pas imprimer (à définir à la première ligne) et ajoute un commentaire pour prévenir de ce fait.

Private sub Worksheet_Change(ByVal Target As Range)
  [A1].ClearComments
  If [A1] = "zaza" Or [A1] = "toto" Or [A1] = 100 Then
 	 With [A1]
 		.Font.ColorIndex = 2
  .AddComment
 	 End With
   With [A1].Comment
    .Visible = False
    .Text Text:= "" & Chr(10) & "attention : cette cellule ne sera pas imprimée."
 	End With
  Else
   [A1].Font.ColorIndex = xlAutomatic
  End If
  end sub