Vérifier type de valeur de cellule

Bonjours à tous,

Voilà, j'ai un tableau contenant des chiffres et des lettres (non c'est pas le jeu TV). J'ai fait une boucle simple qui devrait considérer uniquement les chiffres, et en faire quelque chose :

For Each X In Worksheets("Pointage").[D5:AH181]
If X "est un chiffre" ' <--- ça pas bien !!!
X.Interior.ColorIndex = 2
End If
Next X

Comment tester une valeur dans une cellule?

Peut on carément faire :
Si valeur de cellule = integer alors

ou sinon

Si valeur de cellule = chiffre ou date ou lettres alors ???