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