suppression items dans combobox

Private Sub CommandButton1_Click()
'Recupère la liste des N° compte du TCD
Dim R As Integer
Dim F As Integer
Dim lindex As Long
Dim i As Integer
Dim j As Byte
Dim lesNoms(1) As String

UserForm1.ComboBox1.Clear
'UserForm1.ComboBox1.Visible = False
With Worksheets("BUDGETS MENSUELS").PivotTables("Tableau croisé dynamique2").PivotFields("N° Compte")
    F = .PivotItems.Count
    For R = 1 To F
        UserForm1.ComboBox1.AddItem .PivotItems(R).Name
    Next R
    lesNoms = Array("(Blank)", "N° Compte")
    For i = UserForm1.ComboBox1.ListCount - 1 To 0 Step -1
        For j = 0 To 1
            With Me.ComboBox1
                If .Column(j, .List(i)) = lesNoms(j) Then .RemoveItem (i)
            End With
        Next j
    Next i
End With
End Sub

Private Sub CommandButton2_Click()
  Dim R As Long
  UserForm1.ComboBox1.Clear
  With Worksheets("BUDGETS MENSUELS").PivotTables("Tableau croisé dynamique2").PivotFields("N° Compte")
    For R = 1 To .PivotItems.Count
      If .PivotItems(R).Name <> "(Blank)" Or .PivotItems(R).Name <> "N° Compte" Then _
        UserForm1.ComboBox1.AddItem .PivotItems(R).Name
    Next
  End With
End Sub

Private Sub CommandButton1_Click()
  Dim i As Integer
  ComboBox1.Clear
  With Worksheets("BUDGETS MENSUELS").PivotTables("Tableau croisé dynamique2").PivotFields("N° Compte")
    For i = 1 To .PivotItems.Count
      ComboBox1.AddItem .PivotItems(i).Name
    Next
  End With
  For i = ComboBox1.ListCount - 1 To 0 Step -1
    If ComboBox1.List(i) = "(blank)" Or ComboBox1.List(i) = "N° Compte" Then _
       ComboBox1.RemoveItem (i)
  Next
End Sub

Private Sub CommandButton1_Click()
  Dim i As Range
  ComboBox1.Clear
  For Each i In Feuil5.Range("A5:A" & [A65000].End(xlUp).Row - 1)
    If i <> "N° Compte" Then ComboBox1.AddItem i
  Next
End Sub