a tester :
dim valeur as integer
dim b as boolean
valeur = range("A"&1).value
b = Cbool (valeur - clng(valeur) = 0)
if b then 'le chiffre n'a pas de virgule ( ou b = true si jamais sa marche pas comme sa )
/////
else ' le chiffre contient un virgule
///////
end if
dim valeur as double
petit erreur de ma part