Function CompteColonne(R As Range, n)
For Each R In R.Columns
If Application.CountA(R) = n Then CompteColonne = CompteColonne + 1
Next
End Function
Function SuiteMax(R As Range, n)
Dim a(), i%
ReDim a(1 To R.Columns.Count)
If Application.CountA(R.Columns(1)) = n Then a(1) = 1
For i = 2 To UBound(a)
If Application.CountA(R.Columns(i)) = n Then a(i) = a(i - 1) + 1
Next
SuiteMax = Application.Max(a)
If SuiteMax = 1 Then SuiteMax = 0
End Function