VBA : Comment faire pour sélectionner seulment les cellules avec une donnée num

Bonojour à tous,
Pouvez vous me dire quel code permet de sélectionner les cellules avec des données num?

J'ai utilisé cela :
Dim DernLigne As Long
DernLigne = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row

et
Dim DernLigne As Long
DernLigne = Range("A65536").End(xlUp).Row

Mais cela me sélectionne des cellules qui n'ont pas de valeurs mais une formule à l'intèrieur.

En vous remerciant.