Sub test2()
With ActiveSheet
With Range("A1")
Comment_Visible = .Comment.Visible
Comment_Bordure = .Comment.Shape.Line.Visible
Comment_Text = .Comment.Text
.Comment.Shape.Line.Visible = False
.Comment.Text " "
.Comment.Visible = True
.Comment.Shape.CopyPicture
.Comment.Visible = Comment_Visible
.Comment.Shape.Line.Visible = Comment_Bordure
.Comment.Text Comment_Text
End With
.[b4].Select
.Paste
End With
End Sub