XL 2016 MACRO SUPPRIMER LIGNE

Sub supprimerligne()
Dim i As Integer
Dim Editeur As String
Editeur = InputBox("Veuillez entrer l'editeur à supprimer ?")
'la valeur saisie est transmise à la variable Editeur
With ThisWorkbook.Sheets("Feuil1")
            For i = .Range("C" & .Rows.Count).End(xlUp).Row To 2 Step -1
                        If .Range("C" & i).Value = Editeur Then
    Rows(i).Delete
    End If
   Next i
End With
End Sub

Sub supprimerligne()
Dim i%, Editeur$
Editeur = LCase(InputBox("Veuillez entrer l'editeur à supprimer ?"))
With ThisWorkbook.Sheets("Feuil1")
    For i = .Range("C" & .Rows.Count).End(xlUp).Row To 1 Step -1
        If LCase(.Range("C" & i)) = Editeur Then Rows(i).Delete
    Next i
End With
End Sub