Sub test3()
Application.ScreenUpdating = False
image = ActiveCell.Address
With ActiveSheet
With Range(image)
.Comment.Visible = True
.Comment.Shape.CopyPicture
.Comment.Visible = False
End With
With Feuil2
.Activate
.[D1].Select
.Paste
End With
.Activate
End With
End Sub
Sub test2()
With ActiveSheet
With Range("A1")
.Comment.Visible = True
.Comment.Shape.CopyPicture
.Comment.Visible = False
End With
.[b4].Select
.Paste
End With
End Sub
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