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 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