Affichage automatique du "0" lorsqu'on supprime le contenu d'une cellule

Bonjour à tous,

Dans une cellule est-il possible de faire afficher automatiquement la valeur "0" (zéro) lorsque l'on supprime toute valeur précédemment saisie dans cette cellule ?

Merci pour votre aide

Bonjour,

Soit une zone nommée "Valeurs" dans l'onglet Feuil1 et l'événement Change

Private Sub Worksheet_Change(ByVal Target As Range)

     If Target.Count > 1 Then Exit Sub

     If Not Intersect(Target, Range("Valeurs")) Is Nothing Then
        If Target = "" Then Target = 0
     End If

End Sub