Private Sub ListBox3_Click()
Dim DerLig As Integer, LigDeb As Integer, LigFin As Integer, Res As Range, Tablo
With Worksheets("valeurs")
DerLig = .Range("B" & Rows.Count).End(xlUp).Row
Set Res = .Range("B27:B" & DerLig).Find(ListBox3.Column(1))
If Not Res Is Nothing Then
LigDeb = Res.Row + 1
LigFin = .Range("A" & Res.Row).End(xlDown).Row
Tablo = .Range("A" & LigDeb & ":A" & LigFin)
ListBox5.List = Tablo
End If
End With
End Sub