Insertion image / valeur cellule

Bonjour,
je souhaite inserer une image en fonction de la valeur d'une cellule
g taper le code suivant mais g un problème sur la partie concernant le positionnement de l'image
Merci d'avance
code :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)

' déclaration des variables
Dim objFeuille As Worksheet, objPict As Picture
Dim fichier As String
Dim positionX As String
Dim positionY As String

' définition des objets
Set objFeuille = ActiveSheet

' définition de la position et de l'image en fonction de la valeur
If Worksheets("Feuil1").Range("C10").Value = "Corrosif" Then
fichier = "G:\Produits chimiques\ERC 2009\pictogramme\2_corrosifSGH.jpg"
positionX = "D10"
positionY = "D10"
ElseIf Worksheets("Feuil1").Range("C10").Value = "Irritant" Then
fichier = "G:\Produits chimiques\ERC 2009\pictogramme\2_exclamen170.jpg"
positionX = "D10"
positionY = "D10"
ElseIf Worksheets("Feuil1").Range("C10").Value = "Nocif" Then
fichier = "G:\Produits chimiques\ERC 2009\pictogramme\2_exclamen170.jpg"
positionX = "D10"
positionY = "D10"
ElseIf Worksheets("Feuil1").Range("C10").Value = "Explosif" Then
fichier = "G:\Produits chimiques\ERC 2009\pictogramme\2_explosen170.jpg"
positionX = "D10"
positionY = "D10"
ElseIf Worksheets("Feuil1").Range("C10").Value = "Inflammable" Then
fichier = "G:\Produits chimiques\ERC 2009\pictogramme\2_flammeen170.jpg"
positionX = "D10"
positionY = "D10"
ElseIf Worksheets("Feuil1").Range("C10").Value = "Toxique" Then
fichier = "G:\Produits chimiques\ERC 2009\pictogramme\2_skullen170.jpg"
positionX = "D10"
positionY = "D10"
ElseIf Worksheets("Feuil1").Range("C10").Value = "Comburant" Then
fichier = "G:\Produits chimiques\ERC 2009\pictogramme\2_rondflamen170.jpg"
positionX = "D10"
positionY = "D10"
ElseIf Worksheets("Feuil1").Range("C10").Value = "Dangereux pour l' environnement" Then
fichier = "G:\Produits chimiques\ERC 2009\pictogramme\2_polluten170.jpg"
positionX = "D10"
positionY = "D10"

' positionnement de l'objet
Set objPict = objFeuille.Pictures.Insert(fichier)
With objPict
.Left = Range(positionX).Left
.Top = Range(positionY).Top
End With

End If

End Sub