[VBA] Supprimer Lignes selon Couleur cellule

Sub Test4()
[COLOR=seagreen]'On arrete l'affichage de l'écran[/COLOR]
Application.ScreenUpdating = False
[COLOR=seagreen]'1er Boucle sur les colonne 31 à 35 (AE:AI)[/COLOR]
For j = 31 To 35
[COLOR=seagreen]'Récupération de la dernière ligne remplie en colonne A (la dernière du tableau)[/COLOR]
Derligne = Range("A" & Application.Rows.Count).End(xlUp).Row
  [COLOR=seagreen]  '2 em boucle sur les lignes de la dernière vers la 3em en remontant[/COLOR]
    For i = Derligne To 3 Step -1
       [COLOR=seagreen]'Si la valeur de la cellule où l'on se trouve est[/COLOR]
[COLOR=seagreen]      'suppérieure ou égale à la valeur en ligne 1 de la même colonne[/COLOR]
        If Cells(i, j).Value >= Cells(1, j).Value Then
          [COLOR=seagreen]  'Suppression de la ligne[/COLOR]
            Cells(i, 1).EntireRow.Delete
       [COLOR=seagreen]'Fin de la condition[/COLOR]
        End If
 [COLOR=seagreen]   'Ligne suivante[/COLOR]
    Next i
[COLOR=seagreen]'Colonne suivante[/COLOR]
Next j
[COLOR=seagreen]'On remet l'affichage écran[/COLOR]
Application.ScreenUpdating = True
End Sub