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