Salut,
pour rechercher les entiers, c'est la fonction VarType :
Dim PLVColA As Long, i as long
PLVColA = Columns(1).Find ("", [A1], , , xlByRows, xlNext).Row
For i = 1 To PLVColA
If VarType(Cells(i, 1).Value) = vbInteger Then
MsgBox "OK"
Else
MsgBox "Non OK"
End If
Next i
Je sais que ça marche avec les variables mais en traitement de données comme ceci, je ne sais pas.
@++
Mortalino 
Le mystérieux chevalier, "Provençal, le Gaulois"
Merci de prendre le temps de répondre à ce sondage