Sub Image_Clients1()
Dim c As Range, lig&, s As Shape, sr&
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...
sr = ActiveWindow.ScrollRow
Application.Goto [A1], True 'cadrage
ActiveSheet.Paste
Selection.Name = c.Address & " " & sr 'mémorise...