Sub Image_Clients1()
Dim c As Range, lig&, s As Shape
Set c = ActiveCell
lig = c.Row
For Each s In ActiveSheet.Shapes
If s.Name Like "Client*" Then s.Delete
Next
If Not IsNumeric(CStr(Cells(lig, "J"))) Or lig < 7 Then Exit Sub
On Error Resume Next
Sheets("Images").Shapes("Client " & Cells(lig, "J")).Copy
If Err Then MsgBox "L'image " & Cells(lig, "J") & " n'existe pas...": Exit Sub
Cells(lig, "K").Select 'ou ailleurs...
ActiveSheet.Paste
Selection.OnAction = "Supprimer" 'affecte la macro Supprimer
c.Select 'désélectionne l'image
End Sub
Sub Supprimer()
On Error Resume Next
ActiveSheet.Shapes(Application.Caller).Delete
End...