Compter nombre de retour chariot sur plusieurs cellules en VBA

Quand j'ouvre ton document et que je clique sur le bouton compter, rien ne se passe.

En regardant dans le code de la macro (éditeur VBA), je crois qu'il y a un problème au niveau de la ligne en gras :

Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Dim tbl As Variant
    Dim lastRow As Long, lastCol As Long
    Dim I As Long, J As Long
    Dim dblCounter As Double

    Application.ScreenUpdating = False
    Set ws = ActiveSheet

    With ws
        lastRow = .Cells(Rows.Count, 3).End(xlUp).Row
        lastCol = .Cells(1, Columns.Count).End(xlToLeft).Column
        For I = 2 To lastRow
            dblCounter = 0
            For J = 3 To lastCol
                If Not IsEmpty(Cells(I, J)) Then
                    tbl = Split(Cells(I, J).Value, Chr(10))
                    dblCounter = 1 + dblCounter + UBound(tbl)
                End If
            Next J
            <strong>.Cells(I, 8) = dblCounter</strong>
        Next I
    End With

    Set ws = Nothing
End Sub

La valeur du compteur (dblCounter) est bonne mais elle ne semble pas bien recopiée dans la feuille excel.