Supprimer lignes selon une valeurs

Bonjour, je suis bloqué dans mon projet...

j'aimerais pouvoir supprimer une lignes à chaque fois que la valeur d'une cellule est égale a une autre valeur.

Est ce possible ? merci, voici mon code

For Each sh In Worksheets
    If Left(sh.Name, 5) = "Poule" Then
        For i = 1 To nbep
        For j = i + 1 To nbep
            sh.Range("a65000").End(xlUp).Offset(1, 0) = sh.Cells(i + 1, 6) 'ColonneA
            sh.Range("d65000").End(xlUp).Offset(1, 0) = sh.Cells(j + 1, 6) 'ColonneD
        Next
        Next

En gros dans mes colonnes, si la valeur est égales à une valeur X, je supprime la ligne

Merci

Bonjour,

ton fichier est top secret ?

si oui, rends le anonyme et envoie une copie IDENTIQUE pour aider à t'aider

P.

Bonjour,

c'est possible avec : range/cells.EntireRow.Delete