Suppression de ligne

Sub exterminer_amazon()
Dim rg As Range, sh As Worksheet, ligdeb As Long, ligfin As Long, nlig As Long
Set sh = ActiveSheet
Set rg = Intersect(sh.UsedRange, sh.Columns("a"))
If Not rg Is Nothing Then
    ligdeb = rg.Row
    ligfin = ligdeb + rg.Rows.Count - 1
    For nlig = ligfin To ligdeb Step -1
        If sh.Cells(nlig, 1) = "Amazon" Then
            sh.Rows(nlig).Delete
        End If
    Next nlig
End If
End Sub