Sub PlusLongtemps()
Dim c As Range
Dim i, j, cpt1, cpt2 As Integer
For j = 1 To 8
cpt1 = 0
For Each c In Range(Cells(2, j), Cells(366, j))
If c.Value = 1 Then
cpt2 = 0
For i = 1 To 365 - c.Row
If c.Offset(i, 0) = 0 Then
cpt2 = cpt2 + 1
Else
Exit For
End If
Next i
End If
If cpt2 > cpt1 Then cpt1 = cpt2
Next c
Cells(j + 8, 10) = cpt1
Next j
End Sub