supprimer seulement une cellule

[fred]

bonjour

voici mon code :

Sub supprimeDerVal()
Range("A65536").End(xlUp).Select
If Selection.Value <> "0" Then
Selection.EntireRow.Delete
End If
End Sub

je voudrais effacer seulement la dernière cellule de la colonne A et non pas toute la ligne

je pense qu'il faut remplacer cette ligne : Selection.EntireRow.Delete

pouvez vous m'aider

merci

 

[jmps]

Bonjour Fred,

En plus court :

Sub supprimeDerVal()
&nbsp;&nbsp;Range("A65536").End(xlUp).Delete
End Sub

Bonne journée.

José

 

[fred]

merci

fred