Private Sub ListBox1_Click()
Dim C As Range
Set C = Feuil1.Columns("H").Find(What:=ListBox1)
If Not C Is Nothing Then TextBox1 = C: TextBox2 = C.Offset(, 1)
Nom1 = ListBox1
Fichier = ActiveWorkbook.Path & "\" & Nom1 & ".jpg"
If Dir(Fichier) <> "" Then
Me.Image2.Picture = LoadPicture(Fichier)
Else
On Error Resume Next: Me.Image2.Picture = LoadPicture(ActiveWorkbook.Path & "\vide.jpg")
End If
End Sub