Bonsoir tous le monde!!


je viens vers vous en espérant que votre aide précieuse puisse me sortir de ce petit problème.
Voici mon petit souci,mes combobox n'affiche pas le contenu de mon listbox qui contient plusieurs données et que j'aurais aimé filtrer via mes combobox.
voici le code gérant mes combobox:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
 
Private Sub Rechercher()
' Rechercher les données en fonction des critères 1 et 2 et 3
    Dim rCel As Range
    Dim lgLig As Long
    Dim lgLigDeb As Long
 
    Dim Critere1 As String
    Dim Critere2 As String
    Dim Critere3 As String
    Dim Critere4 As String
    Dim Critere5 As String
 
    Critere1 = "*"
    If RechercheC1.Value <> "" Then Critere1 = RechercheC1.Value
    Critere2 = "*"
    If RechercheC2.Value <> "" Then Critere2 = RechercheC2.Value
    Critere3 = "*"
    If RechercheC3.Value <> "" Then Critere3 = RechercheC3.Value
 
 
    ListBoxLocataire.Clear
 
    ' Boucle de la 2me à la dernière ligne de la feuille Feuil1
    For lgLigDeb = 1 To Range("A" & Cells.Rows.Count).End(xlUp).Row
        If Range("A" & lgLigDeb).Value Like Critere1 And Range("D" & lgLigDeb).Value Like Critere2 And Range("F" & lgLigDeb).Value Like Critere3 Then
            With ListBoxLocataire
 
                .AddItem Range("A" & lgLigDeb).Value
                .List(.ListCount - 1, 1) = Range("B" & lgLigDeb).Value
                .List(.ListCount - 1, 2) = Range("C" & lgLigDeb).Value
                .List(.ListCount - 1, 3) = Range("D" & lgLigDeb).Value
                .List(.ListCount - 1, 4) = Range("E" & lgLigDeb).Value
                .List(.ListCount - 1, 5) = Range("F" & lgLigDeb).Value
                .List(.ListCount - 1, 6) = Range("G" & lgLigDeb).Value
                .List(.ListCount - 1, 7) = lgLigDeb
 
                lgLig = lgLig + 1
            End With
        End If
    Next lgLigDeb
End Sub
j'espère que j'ai été assez explicite.
Merci beaucoup de votre aide futur.

tchuss