Afficher image suite choix liste déroulante

Bonjour,

SVP m'aider pour affiche une image dans une cellule en fonction du choix dans une liste déroulante.
J'ai fait plusieurs recherches mais je n'y arrive pas ...( je débute en VBA )
La liste déroulante est dans la cellule B1 et en fonction du choix, je voudrais que l'image s'affiche dans la cellule C. (exemple fruit 1, image fruit 1; fruit 2 , image fruit 2 ...). Les images sont dans un répertoire sur le C :\
J'ai deux problématiques avec le code ci-joint :
1. Il affiche toutes les images indifféremment du choix (je ne sais pas écrire la condition pour afficher image 1 avec choix 1..)
2. Il n'affiche pas le code à l'intérieur de la cellule spécifiée, dans ce cas , la G1.
Merci beaucoup pour votre aide !
Toute suggestion serait très appréciée !

voici le code

If Target.Address = "$B$1" Then

With ActiveSheet

Set pic1 = .Pictures.Insert("C:\fruits\fruit1.jpg")
With pic1
.Name = "fruit1"
.Width = 100
.Height = 100
.Top = ActiveSheet.Range("G1").Top
.Left = ActiveSheet.Range("G1").Left
End With

Set pic2 = .Pictures.Insert("C:\fruits\fruit2.jpg")
With pic2
.Name = "fruit2"
.Width = 100
.Height = 100
.Top = ActiveSheet.Range("G1").Top
.Left = ActiveSheet.Range("G1").Left
End With

Set pic3 = .Pictures.Insert("C:\fruits\fruit3.jpg")
With pic3
.Name = "fruit3"
.Width = 100
.Height = 100
.Top = ActiveSheet.Range("G1").Top
.Left = ActiveSheet.Range("G1").Left
End With

End With

End If

End Sub