Chiffres qui se suivent

=SOMMEPROD(N((PETITE.VALEUR(A3:E3;LIGNE(INDIRECT("2:"&NB(A3:E3))))-PETITE.VALEUR(A3:E3;LIGNE(INDIRECT("1:"&NB(A3:E3)-1)))=1)))>0

Function SeSuivent(r As Range) As Boolean
Dim t, i%
t = r 'matrice, plus rapide
For i = 1 To UBound(t, 2)
 If Application.CountIf(r, t(1, i) - 1) Or _
   Application.CountIf(r, t(1, i) + 1) Then _
     SeSuivent = True: Exit For
Next
End Function

Function CompteSeSuivent%(r As Range)
Dim t, i%
t = r 'matrice, plus rapide
For i = 1 To UBound(t, 2)
 If Application.CountIf(r, t(1, i) - 1) Or _
   Application.CountIf(r, t(1, i) + 1) Then _
     CompteSeSuivent = CompteSeSuivent + 1
Next
End Function

=SOMMEPROD(SIGNE(NB.SI($A3:$E3;$A3:$E3-1)+NB.SI($A3:$E3;$A3:$E3+1)))>0

Function myTest(myRange As Range, output As String)

If output = "bool" Then myTest = False
If output = "number" Then myTest = 0

Dim r As Integer
r = myRange.Columns.Count

Dim ary()
ReDim ary(r)
ary = myRange

Dim buffer

' Sort
For i = 1 To r
    For j = 1 To r
        
        If (ary(1, i) > ary(1, j)) Then
            buffer = ary(1, i)
            ary(1, i) = ary(1, j)
            ary(1, j) = buffer
        End If

    Next j
Next i

' Calculate

Dim myC As Integer
Dim mymax As Integer
myC = 1
mymax = 0

For i = 1 To r - 1
    For j = i + 1 To r
        
        If ary(1, i) - ary(1, j) = myC Then
            myC = myC + 1
        Else
            myC = 1
        End If
        mymax = Application.WorksheetFunction.Max(myC, mymax)

    Next j
Next i

If output = "bool" Then
    If mymax = 1 Then
        myTest = False
    Else: myTest = True
    End If
End If
If output = "number" Then myTest = mymax

End Function