Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, chemin$, s As Shape, fich$
Set r = [B11,G11,B19,G19,B27,E27] 'plage à adapter
chemin = ThisWorkbook.Path & "\" 'chemin des photos, à adapter
Application.ScreenUpdating = False
For Each s In Shapes
If Not Intersect(s.TopLeftCell, r) Is Nothing Then s.Delete 'RAZ
Next
For Each r In r
fich = chemin & r(0, 1) & ".jpg"
If Dir(fich) <> "" Then
With Pictures.Insert(fich)
.Top = r.Top
.Left = r.Left
.ShapeRange.LockAspectRatio = msoFalse
.Height = r.MergeArea.Height
.Width = r.MergeArea.Width
End With
End If
Next
End Sub