VBA supprimer plusieurs lignes entières

Sub delete_row()
    With Worksheets("feuil1")
        'derniere cellule non vide colonne T
        derlig = .Range("T" & Rows.Count).End(xlUp).Row
        'mise en memoire plage colonne T
        Set plage = .Range("T1:T" & derlig)
        'nombre de fois "ko" dans la plage
        Nb_Oc = Application.CountIf(plage, "ko")
        'boucle recherche ligne "ko" dans colonne T
        If Nb_Oc > 0 Then
            lig = 1
            For n = 1 To Nb_Oc
                lig = .Columns("T").Find("ko", .Cells(lig, "T"), , xlWhole).Row
                .Rows(lig).Delete
            Next n
        End If
    End With
End Sub