Suppression lignes tableau

Bonjour,

Je n’ai que très peu de notions en VBA mais je cherche malgré tout à l’utiliser pour l’automatisation d’une tâche sous Excel 2013.

J’ai un tableau que je voudrais « filtrer » en supprimant de ses lignes en fonction d’une chaine de caractères contenue dans une colonne.

Je voudrais obtenir, après traitement :

J’ai codé quelques lignes mais ce code met beaucoup de temps dès lors qu’il y a de nombreuses données insérées :

Sub suppr()

    Range("Tableau68[Abonnement]").Select
        While ActiveCell.Value <> ""
            If Not (ActiveCell.Value Like "*TR*") Then
            Union(ActiveCell.Offset(0, -2), ActiveCell.Offset(0, -1)).Delete
            Else
            ActiveCell.Offset(1, 0).Select
            End If
        Wend

End Sub

PS : J’ai filtre sur « *TR* » car le nom est susceptible de se rallonger.

Pouvez-vous me dire, si dans mon cas il y a mieux, s’il vous plait ?

Bonjour,

Un code simple à essayer :

Sub Suppr()
    Dim cel As Range
    For Each cel In Range("D1:D" & Range("D" & Application.Rows.Count).End(xlUp).Row)
        If Not (cel.Value Like "*TR*") Then
            cel.EntireRow.Delete
        End If
    Next cel
End Sub

Merci, c'est en effet plus rapide !