VBA comment effacer la derniere cellule plein

Bonjour,

Voila, mon probleme.
Je suis en train de développer une petite structure en VB pour une amie mais je bloque sur la fin.
En fait j'incrémente des lignes dans un tableau via des input box.
En fin de code j'aimerais sélectionner la dernière cellule pleine de la colonne E et voir si elle est égale à 0.
ensuite si elle est = à 0 j'aimerais l'effacer sinon la laisser.
Le problème est que je n'arrive pas à intégrer mon IF then
en français je voudrais faire ça :
if (la derniere cellule pleine de la colonne E = 0) then (efface là) sinon (ne fait rien)

voila mon code :
Sub creation_article()

Dim creation_article As String

MsgBox "Vous allez créer un nouvel article H2O", vbDefaultButton1
reponse = MsgBox("Voulez-vous continuer ?", vbYesNo)
If reponse = vbNo Then Exit Sub
Ref = InputBox("Indiquez la REFERENCE de l'article", "CREATION D'ARTICLE")
désignation = InputBox("Indiquez DESIGNATION de l'article", "CREATION D'ARTICLE")
PUachatHT = InputBox("Indiquez le Prix Unitaire d'achat HT", "CREATION D'ARTICLE")
PUventeHT = InputBox("Indiquez le Prix Unitaire de vente HT", "CREATION D'ARTICLE")

Sheets("base").Range("N1").Value = Ref
Sheets("base").Range("O1").Value = désignation
Sheets("base").Range("P1").Value = PUachatHT
Sheets("base").Range("Q1").Value = PUventeHT

Sheets("base").Select
Range("N1:Q1").Select
Selection.Copy
Range("A" & Range("A65536").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("base").Select

Sheets("base").Select
Range("N1:Q1").Select
Selection.ClearContents

Range("E" & Range("E65536").End(xlUp).Row + 0).Select
Selection.Copy
Range("E" & Range("E65536").End(xlUp).Row + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False

merci de votre aide

Configuration: Windows XP
Internet Explorer 7.0
suit office professionnel 2003