Option Explicit
Sub supprime_jaune()
Dim I As Long
[COLOR=yellowgreen]'Dim Plage As Range[/COLOR]
[COLOR=yellowgreen]'Set Plage = Range("A2:A" & Range("A2").End(xlDown).Row)[/COLOR]
For I = Range("A2").End(xlDown).Row To 2 Step -1
If Cells(I,1).Interior.ColorIndex = 6 Then
Rows(I).Delete
End If
'suppression si ligne jaune
Next
End Sub