Suppression automatique de lignes

Bonjour à tous,

Mon problème est assez simple.

J'ai une base de données très volumineuse et je souhaiterais pouvoir effectuer une petite opération qui me ferait gagner des jours...

J'aimerais supprimer toutes les lignes qui ne contiennent pas dans la colonne B le mot "Armour".

Je suppose qu'une macro très simple est nécessaire?

Merci de votre aide par avance!

Damien

bonjour,

à tester

Sub supprime()
mot = "Armour"
With ActiveSheet
dlws = .Range("B" & Rows.Count).End(xlUp).Row
For i = dlws To 1 Step -1
If InStr(.Cells(i, "b"), mot) = 0 Then
.Rows(i).Delete shift:=xlUp
End If
Next i
End With
End Sub