MACRO - Supprimer lignes qui se répètent succintivement avec condition

Hello Forum

Je débute en VBA. J'aurais voulu savoir comment je peux écrire une petite macro qui supprimerait des lignes qui se répètent et qui ont comme critères un interior color RGB (128,128,128).

Avec au départ un tableau comme celui-ci (fichier ci-joint) :

3vba-sup.xlsm (15.80 Ko)
image

J'aimerais ainsi obtenir le résultat suivant :

image

Mille merci pour la moindre aide que vous pourrez m'apporter à ce sujet !!

Je vous souhaite à tous une agréable journée.

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,

Bonjour,

A tester

2vba-sup.xlsm (18.34 Ko)

Super !!! Un grand merci à vous deux. Cela fonctionne parfaitement.

Rechercher des sujets similaires à "macro supprimer lignes qui repetent succintivement condition"