Destruction de l'exemplaire e01 sur un lot de notices

Sub Detruit()
	total = Application.ActiveWindow.Variable("P3GSZ")
	For element = 1 To total
		Application.ActiveWindow.Command "aff " & element, False
		Application.ActiveWindow.Command "sup e01", False
		Application.ActiveWindow.PressButton("Supprimer")
	Next
End Sub