Comment copier le contenu d'une cellule dans un commentaire et effacer la cellule ?

sub MettreContenuEnCommentaire()
 'Trirème MPFE 2007
 
 ' La macro copie la valeur de la cellule dans le commentaire, éventuellement
 ' à la suite d'un commentaire déjà présent, puis efface le contenu de la cellule.
 '
 Dim c As Range
 Dim Moi As String

 Moi = "PDK" ' À renseigner avec ses initiales

 For Each c In Selection
  With c
    If .Comment Is Nothing Then ' Le commentaire n'existe pas, on le crée
      .AddComment
      .Comment.Visible = False
      .Comment.Text Text:=Moi & " (" & Date & ") :" & Chr(10) & "Ancienne valeur = " & c.Value
      .ClearContents
    Else  ' Un commentaire existe déjà, on ajoute alors le nouveau à la fin de celui existant
      .Comment.Text Text:=.Comment.Text & _
      Chr(10) & Moi & " (" & Date & ") :" & _
      Chr(10) & "Ancienne valeur = " & c.Value
    End If
  End With
 Next c
 end sub