Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 4 Then 'If Target.Column = 8 Then
'-- suppression
For Each s In ActiveSheet.Shapes
If s.Type = 13 Then
If s.TopLeftCell.Address = Target.Offset(2, 0).Address Then
s.Delete
End If
End If
Next s
'--
Sheets("Pictogrammes").Shapes(Application.Substitute(Target, " ", "")).Copy
Calculate
[COLOR=red]Target.Offset(2, 0).Select[/COLOR]
ActiveSheet.Paste
Selection.ShapeRange.Left = ActiveCell.Left + 45
Selection.ShapeRange.Top = ActiveCell.Top + 5
Target.Select
End If
End Sub