Suppression de lignes Lorsqu'une colonne contient "OK"

Bonjour tout le monde,

Comme indiqué dans l'objet, j'essaye de trouver une macro me permettant de supprimer toutes les lignes dont la colonne T contient "OK" (à partir de la 2e ligne: la 1e contenant les en tête de colonne)

Le problème est que mon fichier contient environ 20 000 lignes et quand j'utilise un code déja évoqué cela met beaucoup trop de temps

Voici ce que j'ai: malheuresement cette macro efface aussi ma premiere ligne...

Sub Supppr()

With Columns("T")

.AutoFilter Field:=1, Criteria1:="OK"

.SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete

.AutoFilter Field:=1

End With

End Sub

Merci pour vos réponses

bonjour,

avec ta macro :

Sub Supppr()
Columns("T").AutoFilter Field:=1, Criteria1:="OK"
Range("T2:T" & Range("T" & Rows.count).End(xlUp).Row).SpecialCells(xlCellTypeVisibles).EntireRow.Delete
Columns("T").AutoFilter Field:=1
End Sub

non testé, a plus !

Bonjour

Sub Supppr()
    Columns("T").AutoFilter Field:=1, Criteria1:="OK"
    Range("T2:T" & Range("T" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete
    Columns("T").AutoFilter Field:=1
    End Sub

Cordialement

ça marche !

Merci bcp à tous les 2