Dim MonType As Integer
Dim MaVariable
MaVariable = ActiveCell.Value
MonType = VarType(MaVariable)
Select Case MonType
Case vbInteger
MsgBox 'Nombre'
Case vbDouble
MsgBox 'Nombre'
Case vbString
MsgBox 'Chaine'
Case vbDate
MsgBox 'Date'
'etc etc.....
End Select