supprimer la dernière valeur non vide d'une colonne

[fred]

bonjour

comment supprimer la dernière valeur d'une colonne non nulle

ex :

colonne A
25
35
67
98

je veux supprimer 98

merci et bonne année à tous

 

[ChTi'160]

Salut "fred"
deux petits exemples de ce qui est faisable
Sub supprimeDerVal()
Range("A65536").End(xlUp).Select
If Selection.Value <> "0" Then
Selection.EntireRow.Delete
End If
End Sub
ou
Sub supprimeDerVal()
Range("A1").End(xlDown).Select
if Selection.value<>"0" then
Selection.EntireRow.Delete
range("A1").Select
End Sub

A+++
Jean marie