Private Sub Worksheet_Change(ByVal Target As Range)
Dim Emplacement As Range
Dim Image As Object
If Target.Address = '$A$1' Then
'-----------------------------------------
On Error Resume Next
ActiveSheet.Shapes('cible').Delete
On Error GoTo 0
'-----------------------------------------
Set Emplacement = Range('A4') 'emplacement image dans la feuille
If Range('A1').Value = 2 Then
Set Image = ActiveSheet.Pictures.Insert('C:/Mes Documents/image1.jpg')
Else
Set Image = ActiveSheet.Pictures.Insert('C:/Mes Documents/image2.jpg')
End If
With Image.ShapeRange
.Name = 'cible' ' nommer l'image insérée ( pour la supprimer plus facilement ensuite )
.LockAspectRatio = msoFalse
.Left = Emplacement.Left
.Top = Emplacement.Top
.Height = Emplacement.Height
.Width = Emplacement.Width
End With
End If
End Sub