Remplacement automatique des valeurs

Bonjour,

J'aimerais savoir si il est possible que lorsqu'un utilisateur entre n'importe quelle valeur dans un tableau cette valeur soit automatiquement remplacé par le chiffre 1?

Merci pour vos réponse!

Salut Kristell,

Private Sub Worksheet_Change(ByVal Target As Range)
'
Application.EnableEvents = False
'
If Target <> "" Then Target = 1
'
Application.EnableEvents = True
'
End Sub

A+

Merci!