Combobox + nbval

Bonjour à tous,

Marre de tourner en rond je sollicite votre aide.
j'ai une formule qui additionne les nombre de cellule renseigné (A11=NBVAL(A1:A10)) mais quand je clique sur A2 pour lancer ma combobox et valide ok en laissant le champs blancs par défaut, il me compte 1 alors que les cellules A1:A10 sont vide !
Je sélectionne A2 et appuie sur la touche supprime du clavier il me compte 0

Merci de votre aide

Daniel

Ci joint la combobox:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub ComboBox1_Change() Set D1 = CreateObject("Scripting.Dictionary") X = Replace(Replace(Me.ComboBox1, ".", ""), " ", "") tmp = "*" For i = 1 To Len(X): tmp = tmp & Mid(X, i, 1) & "*": Next i tmp = UCase(tmp) For Each c In a tmp2 = "*" X = c For i = 1 To Len(c): tmp2 = tmp2 & Mid(X, i, 1) & "*": Next i 'Stop If UCase(tmp2) Like tmp Then D1(c) = "" Next c Me.ComboBox1.List = D1.keys Me.ComboBox1.DropDown End Sub