A mettre dans le module de la feuille NPT
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G5")) Is Nothing Then
For Each sh In ActiveSheet.Shapes
sh.Delete
Next sh
For i = 1 To 10
On Error Resume Next
If Cells(13, i) <> "" Then
Sheets("images").Shapes(Cells(13, i)).Copy
Cells(13, i).Offset(2, 0).Select
ActiveSheet.Paste
Selection.ShapeRange.Left = Cells(13, i).Left 'à adapter
Selection.ShapeRange.Top = Cells(13, i).Top
End If
If Cells(16, i) <> "" Then
Sheets("images").Shapes(Cells(16, i)).Copy
Cells(16, i).Offset(2, 0).Select
ActiveSheet.Paste
Selection.ShapeRange.Left = Cells(16, i).Left 'à adapter
Selection.ShapeRange.Top = Cells(16, i).Top
End If
Next i
End If
End Sub