Private Sub bouton_2_click()
Dim MonImage As Picture
Dim CelluleDAncrage As Range
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If (sh.Type = msoLinkedPicture Or sh.Type = msoPicture) And sh.Name = "MaBelleImage" Then sh.Delete
Next sh
With ActiveSheet
Set CelluleDAncrage = .Range("U13")
Set MonImage = .Pictures.Insert("C:\SPIN RANGE\3 HANDED\BTN\BTN\1.bmp")
With MonImage
.Placement = xlMoveAndSize
.Left = CelluleDAncrage.Left
.Top = CelluleDAncrage.Top
.Name = "MaBelleImage"
End With
End With