Affichage dans une listbox sous condition

Private Sub charger_liste_clients_actifs()
Dim x As Integer, i As Integer
Application.ScreenUpdating = False

Sheets("ListeCLients_GM").Select

'avec la feuille de données listeclientsGM
For i = 2 To Sheets("ListeCLients_GM").Range("A65536").End(xlUp).Row

With ListBox_choix_clients
  .ColumnCount = 6
  .ColumnWidths = "25;0;60;0;60"
'on charge le listBox  des données
If LCase(Sheets("ListeCLients_GM").Cells(i, 4).Value) = "société" Then
.AddItem Sheets("ListeCLients_GM").Cells(i, 1).Value
.List(x, 1) = Sheets("ListeCLients_GM").Cells(i, 2).Value
.List(x, 2) = Sheets("ListeCLients_GM").Cells(i, 3).Value
.List(x, 3) = Sheets("ListeCLients_GM").Cells(i, 4).Value
.List(x, 4) = Sheets("ListeCLients_GM").Cells(i, 5).Value
.List(x, 5) = Sheets("ListeCLients_GM").Cells(i, 6).Value
x = x + 1
End If

'.AddItem Sheets("ListeCLients_GM").Range("A" & i)
End With
Next i
Application.ScreenUpdating = True
End Sub

Private Sub CommandButton1_Click()
Dim i As Byte
For i = 0 To ListBox_choix_clients.ListCount - 1
    ListBox_clients_a_facturer.AddItem ListBox_choix_clients.List(i, 4)
Next i
End Sub

Private Sub CommandButton2_Click()
Dim i As Byte
For i = 0 To ListBox_choix_clients.ListCount - 1
    If ListBox_choix_clients.Selected(i) = True Then
        ListBox_clients_a_facturer.AddItem ListBox_choix_clients.List(i, 4)
   End If
Next i
End Sub

Private Sub CommandButton2_Click()
Dim i As Byte
ListBox2.Clear
For i = 0 To ListBox1.ListCount - 1
    ListBox2.AddItem ListBox1.List(i, 0)
Next i
End Sub
Private Sub CommandButton1_Click()
Dim i As Integer, x As New Collection
For i = 0 To ListBox2.ListCount - 1
    On Error Resume Next
    x.Add ListBox2.List(i, 0), CStr(ListBox2.List(i, 0))
    On Error GoTo 0
Next i
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
    On Error Resume Next
        x.Add ListBox1.List(i, 0), CStr(ListBox1.List(i, 0))
        If Err = 0 Then ListBox2.AddItem ListBox1.List(i, 0)
    On Error GoTo 0
   End If
Next i
End Sub

Dim i As Integer
For i = ListBox_choix_clients.ListCount - 1 To 0 Step -1
    If ListBox_choix_clients.Selected(i) = True Then
        ListBox_clients_a_facturer.AddItem ListBox_choix_clients.List(i, 4)
        ListBox_choix_clients.RemoveItem (i)
    End If
Next i

Private Sub CommandButton2_Click()
Dim i As Integer, x As New Collection
For i = 0 To ListBox2.ListCount - 1
    On Error Resume Next
    x.Add ListBox2.List(i, 0), CStr(ListBox2.List(i, 0))
    If Err <> 0 Then ListBox2.RemoveItem (i)
    On Error GoTo 0
Next i
For i = ListBox1.ListCount - 1 To 0 Step -1
    If ListBox1.Selected(i) = True Then
    On Error Resume Next
        x.Add ListBox1.List(i, 0), CStr(ListBox1.List(i, 0))
        If Err = 0 Then ListBox2.AddItem ListBox1.List(i, 0): ListBox1.RemoveItem (i)
    On Error GoTo 0
   End If
Next i
End Sub

Private Sub CommandButton2_Click()
Dim i As Integer, x As New Collection
For i = 0 To ListBox_clients_a_facturer.ListCount - 1
    On Error Resume Next
    x.Add ListBox_clients_a_facturer.List(i, 0), CStr(ListBox_clients_a_facturer.List(i, 0))
    If Err <> 0 Then ListBox_clients_a_facturer.RemoveItem (i)
    On Error GoTo 0
Next i
For i = ListBox_choix_clients.ListCount - 1 To 0 Step -1
    If ListBox_choix_clients.Selected(i) = True Then
    On Error Resume Next
        x.Add ListBox_choix_clients.List(i, 0), CStr(ListBox_choix_clients.List(i, 0))
        If Err = 0 Then ListBox_clients_a_facturer.AddItem ListBox_choix_clients.List(i, 0): ListBox_choix_clients.RemoveItem (i)
    On Error GoTo 0
   End If
Next i
End Sub