XL 2010 Bouton pour Actualiser listbox formulaire

Private Sub CommandButton1_Click() 'Préparation1
col = 9 'colonne I
ComboBox1_Change
col = 0
End Sub

Private Sub CommandButton2_Click() 'Préparation2
col = 10 'colonne J
ComboBox1_Change
col = 0
End Sub

Private Sub ComboBox1_Change()
Dim i&

ListBox1.Clear
If ComboBox1.ListIndex = -1 Then Exit Sub
If col = 0 Then col = 4 'colonne D

For i = 1 To UBound(TV)
    If TV(i, 1) = ComboBox1 Then
        With ListBox1
            .AddItem 'ajoute un élément
            .List(.ListCount - 1, 0) = TV(i, 1)
            .List(.ListCount - 1, 1) = TV(i, 2)
            .List(.ListCount - 1, 2) = TV(i, 3)
            .List(.ListCount - 1, 3) = TV(i, col)
        End With
    End If
Next

End Sub