Bonjour,
Tu as aussi la possibilité d'utiliser un contrôle Image sur ta feuille. Onglet "Développeur" --> zone "Contrôles" --> bouton "Insérer" choisir dans la zone "Controles ActiveX" le contrôle Image et trace-le sur ta feuille à l'endroit voulu.
Colles le code ci-dessous à la place de celui que je t'ai donné précédemment. Si tu sélectionnes une cellule dans la colonne A ayant le nom d'une de tes photos, elle sera affichée dans le contrôle Image mais si tu sélectionnes une cellule ailleurs que dans la colonne A, le contrôle Image est déchargé et caché :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Chemin As String
'si la cellule sélectionnée n'est pas dans la colonne A ou si la cellule est vide , cache le contrôle Image
'supprime la photo et fin de procédure
If Target.Column > 1 Or Target.Value = "" Then
Image1.Visible = False
Image1.Picture = LoadPicture("")
Exit Sub
End If
Chemin = Environ("USERPROFILE") & "\Desktop\" & Target.Value & ".jpg"
'contrôle que le fichier existe bien dans le dossier indiqué
If Dir(Chemin) = "" Then Exit Sub
'affiche le contrôle Image, la photo est adaptée au contrôle et chargée
Image1.Visible = True
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Picture = LoadPicture(Chemin)
End Sub