Supprimer des lignes d'une ListBox

Private Sub CommandButton1_Click()
Dim i As Integer
With ListBox1
  For i = .ListCount - 1 To 0 Step -1
    If .List(i, 1) = "Sans" Then .RemoveItem i
  Next
End With
End Sub

Private Sub UserForm_Initialize()
ListBox1.List = Range("A1:B6").Value
End Sub

Private Sub CommandButton1_Click()
Dim k As Integer
For k = ListBox1.ListCount - 1 To 0 Step -1
  If ListBox1.Column(1, k) Like "*Sans*" Then
    ListBox1.RemoveItem k
  End If
Next
End Sub

Private Sub CommandButton1_Click()
Dim k As Integer
For k = ListBox1.ListCount - 1 To 0 Step -1
  If [COLOR="Red"]LCase[/COLOR](ListBox1.List(k, 1)) Like "*sans*" Then
    ListBox1.RemoveItem k
  End If
Next
End Sub