Supression ligne sur plusieurs feuille simultanément

Rows(i).Delete

Sub deletews_camcam1404()
    Dim i As Integer
    Dim Editeur As String
    Dim Wsh As Worksheet

    Editeur = InputBox("Enter the serie number that you want to delete?", "Welcome")
    'la valeur saisie est transmise à la variable Editeur

    For Each Wsh In Worksheets(Array(1, 2))
        With Wsh
            NL = .Range("D" & .Rows.Count).End(xlUp).Row
            For i = NL To 2 Step -1
                If .Range("D" & i).Value = Editeur Then
                    .Rows(i).Delete
                End If
            Next i
        End With
    Next Wsh

End Sub