Conbiné des listes de choix listbox

Private Sub ListBox3_Click()
    ListBox5.RowSource = ListBox3.Value
End Sub

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