Macro pour compter cellules

[michir]

Bonjour,
Je souhaiterais compter à des fins statistiques, les cellules comportant des valeurs numériques , mais en excluant les formules et les valeurs nulles.
La macro suivante fonctionne de manière aléatoire suivant la plage sélectionnée (voir sur zone vert pâle du fichier joint par exemple)

Sub je_compte2()
If Selection.Count < 1 Then
Cells.Select
End If
Selection.SpecialCells(xlCellTypeConstants, 1).Select
MsgBox Selection.Count - WorksheetFunction.CountIf(Selection, 0)
End Sub

Elle bogue souvent sur l'avant dernière ligne.

Auriez-vous une idée pour améliorer la situation ?

Merci

 

[Charly2]

Bonne nuit michir, le forum,

Décidément, je n'arrive pas à dormir cette nuit

Ton fichier n'est pas passé...

Amicalement
Charly