Somme dans une seule cellule (VBA)

Function NbCel(Cell)
Dim T1
T1 = Split(Cell, vbLf)
NbCel = UBound(T1) + 1
End Function

Function SommeCel(Cell)
Dim T1, i As Byte, S As Integer
T1 = Split(Cell, vbLf)
For i = LBound(T1) To UBound(T1)
    SommeCel = SommeCel + CDbl(T1(i))
Next
End Function

Function SommeCel(Cell)
Dim T1, i As Byte, S As Integer
T1 = Split(Cell, vbLf)
For i = LBound(T1) To UBound(T1)
    If T1(i) <> "" Then SommeCel = SommeCel + CDbl(T1(i))
Next
End Function

Function NbCel(Cell)
Dim T1
T1 = Split(Cell, vbLf)
For i = LBound(T1) To UBound(T1)
    If T1(i) <> "" Then NbCel = NbCel + 1
Next
End Function

Function SommeCel(Cell)
Dim T1, i As Byte, S As Integer
T1 = Split(Cell, vbLf)
For i = LBound(T1) To UBound(T1)
    If IsNumeric(T1(i)) Then SommeCel = SommeCel + CDbl(T1(i))
Next
End Function