VBA > Taille cellule (excel)

Public Function TailleCellule(Cellule As Range) As Integer

Dim MaChaine As String, cmpt As Long

If Len(Cellule.Value) = 0 Then
    TailleCellule = CVErr(xlErrValue)
Else
    MaChaine = CStr(Cellule.Value)
    TailleCellule = Len(MaChaine)
End If

End Function