Enlever ligne colorée

Sub Macro1()
Dim Dl As Long, x As Long 'déclare les variables Dl et x

Dl = Range('A65536').End(xlUp).Row 'définit la variable Dl (Dernière ligne éditée de la colonne A)

'boucle sur toutes les cellules editées de la colonne A (en partant de la dernière)
For x = Dl To 1 Step -1
'condition : si la cellule a un motif jaune
If Cells(x, 1).Interior.ColorIndex = 6 Then
Cells(x, 1).EntireRow.Delete 'supprime la ligne
End If 'fin de la condition
Next x 'prochaine cellule de la boucle
End Sub

Cliquez pour agrandir...