Détecter des séries (par ligne) dans un tableau

Sub e()
dercol = Cells(1, Columns.Count).End(xlToLeft).Column
derlig = Range("A" & Rows.Count).End(xlUp).Row
nomencours = 1
compteencours = 0
nommeilleur = 1
comptemeilleur = 0
For i = 2 To derlig
    actuel = 0
    For j = dercol To 2 Step -1
        If Cells(i, dercol).Value = "A" Or Cells(i, dercol).Value = "B" Then
            If Cells(i, j).Value = "A" Or Cells(i, j).Value = "B" Then
                actuel = actuel + 1
            Else
                j = 2
            End If
        End If
    Next
    If compteencours < actuel Then
        compteencours = actuel
        nomencours = i
    End If
    MsgBox (Cells(i, 1) & ":" & actuel & "----- meilleur actuel : " & Cells(nomencours, 1) & ":" & compteencours)
Next
For i = 2 To derlig
    actuel = 0
    maxactuel = 0
    For j = dercol To 2 Step -1
        If Cells(i, dercol).Value = "A" Or Cells(i, dercol).Value = "B" Then
            If Cells(i, j).Value = "A" Or Cells(i, j).Value = "B" Then
                actuel = actuel + 1
            Else
                If actuel > maxactuel Then
                    maxactuel = actuel
                    actuel = 0
                End If
            End If
        End If
    Next
    If actuel < maxactuel Then actuel = maxactuel
    If comptemeilleur < actuel Then
        comptemeilleur = actuel
        nommeilleur = i
    End If
    MsgBox (Cells(i, 1) & ":" & actuel & "----- meilleur actuel ou passé : " & Cells(nommeilleur, 1) & ":" & comptemeilleur)
Next
End Sub