Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim OOt As OLEObject, Img As MSForms.Image, RéfFic As String
If Target.Column <> 1 Or Target.CountLarge <> 1 Then Exit Sub
On Error Resume Next
Set OOt = Me.OLEObjects("ImgEchant")
If Err Then
Set OOt = Me.OLEObjects.Add(ClassType:="Forms.Image.1", Link:=False, _
DisplayAsIcon:=False, Left:=103.5, Top:=21, Width:=247.5, Height:=206.25)
Set Img = OOt.Object
Img.PictureSizeMode = fmPictureSizeModeZoom
OOt.Name = "ImgEchant"
Else: Set Img = OOt.Object: End If
On Error GoTo 0
RéfFic = ThisWorkbook.Path & Target.Value & ".jpeg"
If Dir(RéfFic) = "" Then
MsgBox "Fichier inexistant :" & vbLf & RéfFic, vbExclamation
OOt.Visible = False
Else
Img.Picture = LoadPicture(RéfFic)
OOt.Top = Target.Top
OOt.Left = Target.Width
OOt.Visible = True: End If
End Sub