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