commentaire d'une cellule soit égale à ce qu'il y a écrit dans la céllule

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)    'au changement dans l'onglet
    If Intersect(Target, Range("A7:A11")) Is Nothing Then Exit Sub
    If Target = "" Then    'condition : si la cellule est effacée
        Target.ClearComments
        Target.AddComment    'ajoute un commentaire (provoque une erreur si il existe déjà)
        Target.Comment.Visible = True    'masque le commentaire
        Target.Comment.Text Text:="Remplir la Cellule"    'texte du commentaire
    Else    'sinon (si la cellule n'est pas effacée mais modifiée)
        Target.ClearComments
        Target.AddComment
        Target.Comment.Visible = True    'masque le commentaire
        Target.Comment.Text Text:=Target.Text  'texte du commentaire
    End If    'fin de la condition

    Target.Comment.Shape.Select True
    With Selection
        .Font.Name = "Arial"
        .Font.FontStyle = "Gras"
        .Font.Size = 14
        .Font.ColorIndex = 3
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlTop
        .ReadingOrder = xlContext
        .Orientation = xlHorizontal
        .AutoSize = True
    End With
    Target.Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Intersect(Target, Range("A7:F7")) Is Nothing Then Exit Sub
    Target.ClearComments
    Target.AddComment
    Target.Comment.Text Text:=IIf(Target = "", "Remplir la cellule", Target.Text)
    Target.Comment.Visible = True
    Target.Comment.Shape.Select True
    With Selection.Font
        .Name = "Arial" 
        .FontStyle = "Gras" 
        .Size = 14
    End With
    Target.Comment.Visible = False
End Sub