XL 2019 Listbox affiche infos cellule selon condition

[dgeo27]

Bonjour,

Pour le moment j'ai une listbox qui m'affiche des infos venant de ma base de donnée :

  If Me.OptionButton3.Value = True Then 'Si bouton = Facture
 
  ListBox1.Clear
  With Worksheets("Facture")
    DerLigne = .Cells(Rows.Count, 2).End(xlUp).Row
    For Ligne = DerLigne To 3 Step -1
      With .Cells(Ligne, 1)
        If .Value <> 0 Then
          If InStr(LCase$(.Value), LCase$(TextBox1)) > 0 Then
            ListBox1.AddItem
            ListBox1.List(ListBox1.ListCount - 1, 0) = .Value
            ListBox1.List(ListBox1.ListCount - 1, 1) = .Offset(, 1)
            ListBox1.List(ListBox1.ListCount - 1, 2) = .Offset(, 3)
            ListBox1.List(ListBox1.ListCount - 1, 3) = .Offset(, 4)
            ListBox1.List(ListBox1.ListCount - 1, 4) = .Offset(, 5)
            ListBox1.List(ListBox1.ListCount - 1, 5) = .Offset(, 6)
            ListBox1.List(ListBox1.ListCount - 1, 6) = .Offset(, 7)
            ListBox1.List(ListBox1.ListCount - 1, 7) = .Offset(, 8)
          End If
        End If
      End With
    Next Ligne
  End With
 
  Else

Qui fonctionne parfaitement.
J'aimerais par contre le modifier pour qu'il affiche uniquement les lignes (de ma feuille "Facture")
Si, et seulement si il y à un "1" dans la colonne CQ

Si vous avez une idée merci à vous

 

[Paf]

Une réponse sur l'autre forum !!