Supression ligne +1

Bonjour a vous, on ma donne sur ce forum la macro suivante, pour suprimer les lignes contenant une valeur speciale:

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

J´aimerai si possibleajoute le fait qu´elle supprime la ligne en plus vers le bas.

merci a vous

Salut,

Tu veux qu'elle supprime en plus la ligne juste en dessous ?

Si c'est pas ça, explique...

Si oui :

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
        Rows(i + 1).Delete
    End If
Next i

End Sub

c´est bien le fait de suprimer le ligne juste en dessous.

merci a toi.