Function TypeCellule(c)
Application.Volatile
Set c = c.Range("A1")
Select Case True
Case IsEmpty(c): TypeCellule = "Vide"
Case Application.IsText(c): TypeCellule = "Texte"
Case Application.IsLogical(c): TypeCellule = "Logique"
Case Application.IsErr(c): TypeCellule = "Erreur"
Case IsDate(c): TypeCellule = "Date"
Case InStr(1, c.Text, ":") <> 0: CellType = "Heure"
Case IsNumeric(c): TypeCellule = "Numérique"
End Select
'Facultatif: détermine si la cellule est le résultat d'un formule
If c.HasFormula Then TypeCellule = CellType & "_formule"
End Function