Annuler l'effet d'une macro .

Sub supprimer_les_lignes_contenant_des_cases_VALEUR()

i = "d"
j = "d"

Do While Not IsNumeric(i)
i = InputBox("No de ligne où doit commencer la vérification ?" & vbCr & vbCr & "Ex : Commencer à la ligne 2 alors tapez 2")

If i = "" Then GoTo Line1
Loop
i = CSng(i)

Do While Not IsNumeric(j)
j = InputBox("No de la colone dans laquelle il y a des cellules contenant #VALEUR!" & vbCr & vbCr & "Ex : cellule D25 alors taper 4")
If j = "" Then GoTo Line1
Loop
j = CSng(j)

a = InputBox("Quel est le critère de suppression (ex. : ligne vide : , erreur 215...)")
z = InputBox("Critère d'arrêt ?")
b = 0

Cells(65536, j).Select
Selection.End(xlUp).Select
Cells(ActiveCell.Row + 1, j).Value = z
Do While Cells(i, j).Value <> z
If CStr(Cells(i, j).Value) = a Then
Rows(i).Delete Shift:=xlUp
b = b + 1
Else: i = i + 1
End If
Loop
MsgBox (b & " lignes ont été supprimées")

Line1:

End Sub

Cliquez pour agrandir...