XL 2010 Somme dans cellules contenant des retours de lignes

Sub Test()
    With Sheets("Feuil1")
        For Each xCell In .Range("A2:A14")      'Lecture de la plage A2 à A14 (a modifier)
            xDecoupe = Split(xCell, Chr(10))
            xValeur = 0
            For F = 0 To UBound(xDecoupe)
                xValeur = xValeur + xDecoupe(F)
            Next F
            xCell.Value = Val(xValeur)
        Next xCell
    End With
End Sub

Sub Test()
    Dim DChiffre, D&, C As Range, Total As Double, xValeur As Double
    With Sheets("Feuil1")
        For Each C In .Range("A2:A" & .UsedRange.Rows.Count)    'Lecture de la colonne A)
            DChiffre = Split(C.Value, Chr(10))
            Total = 0
            For D = 0 To UBound(DChiffre)
                If IsNumeric(DChiffre(D)) Then Total = Total + DChiffre(D)
              Next
            If Total <> 0 Then C.Value = Total
        Next
    End With
End Sub