Suppression lignes selon valeur

Bonjour à tous,

Malgré le fait que le sujet me semble simple, j'obtiens une erreur avec ce bout de macro. Son but est, pour toute la feuille, de supprimer la ligne si la valeur de la cellule colonne G est différente de "a", "b" ou "c".

L'erreur n'est pas spécifiée, mais ma macro va chercher le ErrHandler que j'ai mis en place.

Voici mon code, au plaisir de vous lire.

Merci

   Dim c As Range
    Dim Rng As Range

    Set Rng = Range("G1:G" & Cells(Rows.Count, "G").End(xlUp).Row)
    For Each c In Rng
        If Not (Range(c).Value = "a" Or Range(c).Value = "b" Or Range(c).Value = "c") Then
            Rows(c).EntireColumn.Delete
        End If
    Next c

Bonjour

Sub SupprimeLignes()
  Dim derLigne!, i!
  derLigne = Cells(Rows.Count, "G").End(xlUp).Row
  For i = derLigne To 1 Step -1
    If Not (Range("G" & i).Value = "a" Or Range("G" & i).Value = "b" Or Range("G" & i).Value = "c") Then
      Rows(i).EntireRow.Delete
    End If
  Next i

End Sub

Merci Yal_excel,

Est-ce que tu saurais me dire pourquoi ma proposition ne marchait pas ? Parce que je parcourais la plage depuis le début et non la fin ?

En tout cas grand merci et bonne journée.

Tout à fait.