Comparaison couleur puis suppression

Option Explicit

Sub SupLign()

Dim k As Long, y As Long, Tablo()

Application.ScreenUpdating = False

For k = 9 To Range("A65536").End(xlUp).Row
  If k = Range("A65536").End(xlUp).Row Then Exit For
  If Cells(k, 1).Interior.ColorIndex <> xlNone And Cells(k + 1, 1).Interior.ColorIndex <> xlNone Then
     ReDim Preserve Tablo(1, y)
     Tablo(1, y) = k
     y = y + 1
  End If
Next

On Error Resume Next '(si le tableau Tablo est vide)
For k = UBound(Tablo, 2) To LBound(Tablo, 2) Step -1
  Rows(Tablo(1, k)).Delete
Next
On Error GoTo 0

Application.ScreenUpdating = True
End Sub

Sub SupLign()

Dim k As Long, y As Long, Tablo()

'Permet de geler le rafraichissement de l'affichage et accélère un peu la vitesse d'exécution de la macro
Application.ScreenUpdating = False
'On boucle de la ligne 9 à la dernièere ligne non vide de la colonne A
For k = 9 To Range("A65536").End(xlUp).Row
'Si k = le n° de la dernière ligne non vide de la colonne A on quitte la boucle
  If k = Range("A65536").End(xlUp).Row Then Exit For
  'On teste si une couleur a été mise dans la cellule ligne k, ainsi que dans la cellule suivante ligne k + 1
  If Cells(k, 1).Interior.ColorIndex <> xlNone And Cells(k + 1, 1).Interior.ColorIndex <> xlNone Then
  'Si le teste est positif on met le n° (k) de la ligne qui sera supprimée dans un tableau que l'on redimensionne au fur et à mesure des tests
  'Le tableau aura 1 ligne et y colonne en fonction des tests
     ReDim Preserve Tablo(1, y)
     'On place le n° de ligne qui sera supprimée dans le tableau
     Tablo(1, y) = k
     'On incrémente le n° de la prochaine colonne du tableau
     y = y + 1
  End If
Next
'Evite un plantage de la macro si le tableau Tablo est vide, annulation de la gestion des erreurs par VBA
On Error Resume Next
'On boucle du nombre maxi de colonne du tableau à la première à rebours (par pas de -1)
'Cela évite les erreurs lors de la suppression des linges
For k = UBound(Tablo, 2) To LBound(Tablo, 2) Step -1
  'Suppression de la ligne
  Rows(Tablo(1, k)).Delete
Next
'on rétabli la gestion des erreurs par VBA
On Error GoTo 0
'Désactive le gel du rafraichissement de l'écran
Application.ScreenUpdating = True

End Sub