Salut le forum
A mettre dans le module de ta Feuille 1
Je n'ai pas fait de gestion d'erreur si la photo n'existe pas
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lien As String
Dim Image As Shape
If Not Application.Intersect(Target, Range("G10")) Is Nothing Then
Lien = Range("G14")
If Lien = "" Then Exit Sub
Set Image = ActiveSheet.Shapes("Rectangle 6")
Image.Fill.UserPicture Lien
End If
End Sub
Mytå