Code pour suppression de lignes

Bonsoir le forum

Voici un code me permettant des supprimer toutes les lignes d'une feuille si la cellule de la colonne A ne contient pas "IMB", est-il possible de la faire commencer à partir de la cellule A2 afin que je puisse garder les titres des colonnes?

For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1

    If Not Cells(i, 1) Like "*IMB*" Then Rows(i).Delete

  Next

D'avance merci pour votre aide et votre disponibilité

Bonsoir,

un peu d'attention, quand même... non ?

For i = ActiveSheet.UsedRange.Rows.Count To 2 Step -1

A+

Bonsoir le forum

Bonsoir curulis57 merci pour ton aide

en fait je n'avais rien pour tester sur la tablette

Merci beaucoups

Bonjour à tous,

une autre version, n'ayant pas vu les solutions précédentes.

Amicalement

Pierrot