Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.Range("C3")) Is Nothing Then Exit Sub
Application.EnableEvents = False
ValSaisie = Target
Application.Undo
Target = ValSaisie + Target
Application.EnableEvents = True
End Sub