Supression de ligne selon leur contenus en colonne B

Bonjour a vous, j'aurais besoin d'une macro qui supprime les ligne contenant en colonne "B" le mot : "ALOG" sur ma "feuil1".

Merci a vous.

Bonjour

Essaye :

Sub Supprime()
Dim dlg As Long, i As Long, j As Long
Application.ScreenUpdating = False

dlg = ActiveSheet.UsedRange.Rows.Count

For i = dlg To 1 Step -1

    If Cells(i, 2).Value Like ("*ALOG*") Then Rows(i).Delete
Next i

End Sub

Amicalement

Nad

C´est parfait merci beaucoup a toi.