bouton dissimulé dans une image

Sub Proposition1()
' Avec cette macro, l'image ainsi que la macro lié à cette image est "copier/coller"
' C'est je suppose ce que tu as?    
    ActiveSheet.Shapes("Picture 1").Select
    Selection.Copy
    Range("D18").Select
    ActiveSheet.Paste
End Sub

Sub Proposition2()
' Avec cette macro, l'image et uniquement elle est "copier/coller"
    
    ActiveSheet.Shapes("Picture 1").Select
    Selection.Copy
    Range("D18").Select
    ActiveSheet.PasteSpecial Link:=False
End Sub