Un coup de main pour regler mon probleme.

Bonjour,

Je travail sur excel 2000. J'ai un Tableau comportant 11 colonnes.Dans la colonne 8 (Prêt) je tappe 2 par exemple pour deux articles en prêt. a droite de cette colonne donc la colonne 9 (Date) j'inscrit par un bouton la date avec la fonction AUJOURDHUI format JJ/mm/aaaa.
j'aimerais quand je tappe 0 a la place de 2 comme dans l'exemple, je supprime la date en face. sachant que dans la colonne 8(Prêt) mon format est 0;-0;;@ ce qui me permet de ne pas afficher le 0 par rapport aux autre colonnes ou la il doivent etre visible.

Mon dossier comporte 9 feuilles nommées diferament mais identiques.(Catégorie)
Dans chaque feuille, j'ai ces codes là


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("Prêt")) Is Nothing Then

'Appel de la Macro Condition
condition

End If
MSG = "Désirez vous connaitre le nombre d'articles en stock ?"
reponse = MsgBox(MSG, vbQuestion + vbYesNo, "Wasnaire André")
If reponse = vbYes Then
Calcul
If reponse = vbNo Then GoTo lignefin
lignefin:
End If
End Sub

Sub condition()
Range("Avertissement").Select
For Each cell In Selection 'Pour chaque cellule dans la selection
If cell.Text = "Plus en Stock" Then
cell.Font.ColorIndex = 3
End If
If cell.Text = "En Stock" Then
cell.Font.ColorIndex = 11
End If
If cell.Text = "A Contrôler" Then
cell.Font.ColorIndex = 10
End If
Next
'Range("Prêt").Select
End Sub

Sub Calcul()
D = 2
Z = 0
While Not Sheets("Feuil1").Cells(D, 7).Value = ""
Z = Sheets("Feuil1").Cells(D, 7).Value + Z
D = D + 1
Wend
D = 2
ZZ = 0
While Not Sheets("Feuil1").Cells(D, 4).Value = ""
ZZ = Sheets("Feuil1").Cells(D, 4).Value + ZZ
D = D + 1
Wend
D = 2
ZZZ = 0
While Not Sheets("Feuil1").Cells(D, 8).Value = ""
ZZZ = Sheets("Feuil1").Cells(D, 8).Value + ZZZ
D = D + 1
Wend
MsgBox "Articles prêtés : " & Format(ZZZ, "") & " " & _
" Quantité restante : " & Format(Z, "") & " Articles" & " sur " & _
Format(ZZ, "") & " Articles au total. ", vbInformation, "Wasnaire André"
End Sub



Private Sub Calendar1_Click()
' Met la date sélectionnée dans la cellule active
ActiveCell.Value = Calendar1.Value
' Masque le calendrier
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 18 And Target.Row = 1 And Target.Row <= 18 Then
' Si la cellule sélectionnée est dans la plage qu'on veut lier au calendrier,
' on affiche le calendrier
Calendar1.Visible = True
' Place le calendrier à côté de la cellule
Calendar1.Top = ActiveCell.Top
Calendar1.Left = ActiveCell.Left + ActiveCell.Width
Else
' Sinon, on masque le calendrier
Calendar1.Visible = False
End If
End Sub

pouvez-vous m'aider svp.
merci par avance