Bonjour,
Un essai :
Sub gabinos()
For i = 5 To 21
compteur = 0
For e = 9 To 14
If Cells(i, e) + 1 = Cells(i, e + 1) And Cells(i, e + 1) + 1 = Cells(i, e + 2) Then
compteur = compteur + 3
End If
Next e
If compteur >= 3 Then
For a = 9 To 14
If Cells(i, a) + 1 = Cells(i, a + 1) Or Cells(i, a) - 1 = Cells(i, a - 1) And Cells(i, a - 1) <> "" Then
Cells(i, a).Interior.Color = RGB(50, 200, 255)
Else
Cells(i, a).Interior.Color = xlNone
End If
Next a
Else
Range(Cells(i, 9), Cells(i, 14)).Interior.Color = xlNone
End If
Next i
End Sub