Listbox et filtre

Private Sub ListBox1_Click()
Dim cel As Range 'déclare la variable cel (CELlule)
 
Me.ListBox2.Clear 'vide la ListBox2
Me.ListBox3.Clear 'vide la ListBox3

With Sheets("Devis") 'prend en compte l'onglet "Devis"
    'boucle sur toute les cellules éditées de la colonne A
    For Each cel In .Range("A1:A" & .Range("A65536").End(xlUp).Row)
        'si la valeur de la cellule correspond avec la valeur de l'élément sélectionné de la ListBox1,
        'ajoute la cellule adjacente à la Listbox2
        If cel.Value = Me.ListBox1.Value Then Me.ListBox2.AddItem cel.Offset(0, 1).Value
    Next cel 'prochaine cellule de la boucle
End With 'fin de la prise en compote de l'onglet "Devis"

With Sheets("Facture") 'prend en compte l'onglet "Facture"
    'boucle sur toute les cellules éditées de la colonne A
    For Each cel In .Range("A1:A" & .Range("A65536").End(xlUp).Row)
        'si la valeur de la cellule correspond avec la valeur de l'élément sélectionné de la ListBox1,
        'ajoute la cellule adjacente à la Listbox3
        If cel.Value = Me.ListBox1.Value Then Me.ListBox3.AddItem cel.Offset(0, 1).Value
    Next cel 'prochaine cellule de la boucle
End With 'fin de la prise en compote de l'onglet "Facture"
End Sub