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