Macro à affecter à un bouton ,pour supprimer une ligne sur deux ,d'une liste qui serait trop longue.

Sub sup_ligne()

ligned = InputBox("ligne début 3")

lignef = InputBox("ligne fin 92")

For x = ligned To lignef - 1

Rows(x + 1).Delete

Next

End Sub