Macro / Mettre en couleur les cellules sous certaines conditions

Bonjour à tous et à toutes,

Il y a quelques temps Gyrus m'avait donné une macro superbe. Pour mettre en évidence une série de chiffre si ils se suivaient. Par exemple 1, 2, 3, 5, 6 : le 1,2,3 doivent être mis en couleur. Le souci c'est que certaines cellules dans la colonne sont fusionnées et du coup ça fonctionne pas sur celles qui sont fusionnées.

Est-ce que qqn peut m'aider ? Pleaaaaaaaaaaaaaaaaaaaasssseeeee.




Sub Colorer()
Dim K As Integer, i As Integer
K = 1
Range("T6:T55").Interior.ColorIndex = xlNone
For i = 7 To 55
If Range("T" & i).Value = Range("T" & i).Offset(-1, 0).Value + 1 Then
K = Application.Min(4, K + 1)
If K = 4 Then
Range("T" & i).Offset(-3, 0).Resize(4, 1).Interior.ColorIndex = 3
End If
Else
K = 1
End If
Next i
End Sub


A+