Sub photo()
Dim ref As Range
'Défnition de la zone à copier
nom = "feuille"
ActiveWorkbook.Names.Add Name:=nom, RefersToR1C1:=Sheets("feuille").Range("C3", Sheets("feuille").Range("I65536").End(xlUp))
'On demande où coller la photo
Set ref = Application.InputBox(prompt:="Select the cell where to past the selection", Type:=8)
MsgBox (ref.Address)
'Collage de la photo
Range(nom).Copy
Range(ref.Address).Select
ActiveSheet.Pictures.Paste(Link:=True).Select
End Sub