Private Sub ListBox3_Click()
If ListBox3.ListIndex > -1 Then
ListBox4.Clear
i = Feuil4.Range("b65536").End(xlUp).Row
For Each Cell In Feuil4.Range("a2:a" & i)
If Cell = ListBox1 And Cell.Offset(, 1) = ListBox2 And Cell.Offset(, 2) = ListBox3 Then
ListBox4.AddItem Cell.Offset(, 4)
End If
Next Cell
End If
Dim Photo As String
On Error GoTo Fin
[COLOR=Blue][B] Photo = Me.ListBox4.List(0)
Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\Photo\Montre\" & Photo & ".jpg")
Exit Sub
Fin:
Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\Photo\" & "image defaut.jpg")
Err.Clear
[/B][/COLOR]
End Sub