Suprression Ligne quand 2 cellules n'ont pas la même valeur Erreur Type ??

Bonjour à tous,

La macro ci dessous me renvoie une erreur type et je ne comprends pas trop pourquoi...

Avez vous une idée ?

Je cherche à supprimer les lignes pour lesquelles la colonne E et H ont une valeur différente.

Merci beaucoup

End Sub

Il vaut mieux commencer par la fin quand tu supprimes des lignes.

Dim i%
With Thisworkbook.sheets("Feuil1")
For i = .Cells.Find("*",,,,xlbyrows,xlprevious).row to 4 step -1
If .Cells(i, "E").Value <> .Cells(i, "H").Value then rows(i).Delete
Next
End With

Bonjour,

Sub inter()
    Dim i As Integer, PlgSuppr As Range
    With Sheets("Feuil1")
        For i = 4 To .UsedRange.Rows.Count
            If .Range("E" & i) <> .Range("H" & i) Then
                Set PlgSuppr = Union(PlgSuppr, .Rows(i))
            End If
        Next i
        PlgSuppr.Delete
    End With
End Sub

avec un salut à Thev pour la méthode !