Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 5 Or Dir(CStr(Target)) = "" Then Exit Sub
Dim r As Range, s As Shape
Cancel = True
With Sheets("Fiche")
Set r = .[B6:F18] 'plage à adapter
For Each s In .Shapes
If Not Intersect(s.TopLeftCell, r) Is Nothing Then s.Delete
Next
With .Pictures.Insert(CStr(Target))
.ShapeRange.LockAspectRatio = True
.Height = r.Height - 4
If .Width > r.Width - 4 Then .Width = r.Width - 4
.Left = r.Left + (r.Width - .Width) / 2
.Top = r.Top + (r.Height - .Height) / 2
End With
.Activate 'facultatif
End With
End Sub