Bonjour,
Hormis le code RGB qui n'était pas le bon :
Sub MEF()
Dim L&, LR&
With Worksheets("Sheet1")
LR = .Cells(.Rows.Count, 3).End(xlUp).Row
For L = LR To 2 Step -1
If .Cells(L, 3).Interior.Color = RGB(174, 170, 170) And .Cells(L, 3).Offset(-1).Interior.Color = RGB(174, 170, 170) Then .Rows(L).EntireRow.Delete
Next L
End With
End Sub
A insérer dans un module standard.
Cdlt,