Code VBA pour remplissage en couleur si nombre +1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A1:E25]) Is Nothing Then Exit Sub
Cancel = True
[A1:E25].Interior.ColorIndex = xlNone
Suivante1 Target 'choisir la macro
'Suivante2 Target
End Sub

Sub Suivante1(Target As Range)
'valeurs sur une même ligne dans l'ordre
Dim i&, suiv As Byte, plage As Range, j As Variant
For i = Target.Row To 1 Step -1
1 Target.Interior.ColorIndex = 6
  suiv = 1 + (Target Mod 9)
  Set plage = Range(IIf(Target.Row > i, Cells(i, 1), Target), Cells(i, 5))
  j = Application.Match(suiv, plage, 0)
  If IsNumeric(j) Then Set Target = plage(j): GoTo 1
Next
End Sub

Sub Suivante2(Target As Range)
'valeurs sur une même ligne dans le désordre
Dim i&, suiv As Byte, j As Variant
For i = Target.Row To 1 Step -1
1 Target.Interior.ColorIndex = 6
  suiv = 1 + (Target Mod 9)
  j = Application.Match(suiv, Cells(i, 1).Resize(, 5), 0)
  If IsNumeric(j) Then Set Target = Cells(i, j): GoTo 1
Next
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not IsNumeric(Target.Text) Then Exit Sub
Dim zone As Range
Cancel = True
Set zone = Target.CurrentRegion 'zone de nombres où se trouve Target
zone.Interior.ColorIndex = 37 'bleu
Suivante1 zone, Target 'choisir la macro
'Suivante2 zone, Target
End Sub

Sub Suivante1(zone As Range, Target As Range)
'valeurs sur une même ligne dans l'ordre
Dim i&, suiv As Byte, plage As Range, j As Variant
With zone
  For i = zone.Rows.Count To 1 Step -1
1   Target.Interior.ColorIndex = 6 'jaune
    suiv = 1 + (Target Mod 9)
    Set plage = Range(IIf(Target.Row > .Rows(i).Row, .Cells(i, 1), Target), .Cells(i, .Columns.Count))
    j = Application.Match(suiv, plage, 0)
    If IsNumeric(j) Then Set Target = plage(j): GoTo 1
  Next
End With
End Sub

Sub Suivante2(zone As Range, Target As Range)
'valeurs sur une même ligne dans le désordre
Dim i&, suiv As Byte, j As Variant
With zone
  For i = zone.Rows.Count To 1 Step -1
1   Target.Interior.ColorIndex = 6 'jaune
    suiv = 1 + (Target Mod 9)
    j = Application.Match(suiv, .Rows(i), 0)
    If IsNumeric(j) Then Set Target = .Cells(i, j): GoTo 1
  Next
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim zone As Range, cel As Range
Set zone = Intersect(Target, [A1:E25])
If zone Is Nothing Then Exit Sub
If zone.Count = 1 Then Exit Sub
[A1:E25].Interior.ColorIndex = xlNone
zone.Select: zone.Interior.ColorIndex = 37 'bleu
On Error Resume Next
1 Set cel = Application.InputBox("Sélectionner la cellule de départ dans la plage colorée :", , , , , , , 8)
If Err Then [A1:E25].Interior.ColorIndex = xlNone: Exit Sub
If Intersect(cel, zone) Is Nothing Or cel.Count > 1 Then GoTo 1
Suivante1 zone, cel 'choisir la macro
'Suivante2 zone, cel
End Sub