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