Blank And Space

When using SUBTOTAL for counting values in a column, well this function is counting also the blanks cells having space inside

Well i can use an COUNTIF to avoid this problem, but when using autofilter , the count is gone, that's inconvenient.I can use autofilter to select blanks and then delete space inside but is quite long.

I chopped a macros inspired by jindon:

Sub SpacesBlanks()

Dim X As Integer
Dim r As Range
X = CLng(InputBox(Prompt:="Quelle colonne?"))
If (X < 1) + (X > Columns.Count) Then Exit Sub
lastRow = ActiveSheet.Cells(Rows.Count, X).End(xlUp).Row
For Each r In Range(Cells(1, X), Cells(Rows.Count, X).End(xlUp))
If r.Value = "" Then
r.Value = ClearContents
End If
Next

End Sub