recuperer anciennevaleur avant un Event

Bonjour
j utilise

Code:

---

Private Sub Worksheet_Change(ByVal Target As Range)

---

pour entrer une val et la macro s execute et enregistre cette val.Mais je voudrai recuperer l ancienne avant de taper la nouvelle qui efface l ancienne.On ne peut agir sur la sub ci dessus car elle ne se declanche qu apres un Return cad oldval effacee!!
Autrement dit il me faudrait
une sub qui recupere oldval l ors du choix de la cell
une sub qui inscrit newval sur un Return dans cette cell
Merci

Bonsoir,

Une piste :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

'à typer si toujours le même sinon, laisser en Variant 'peu être mis dans un module standard ou laisser dans le 'module de la feuille en Public et l'appeler de cette façon : 'MsgBox Feuil1.AncienneValeur Public AncienneValeur   Private Sub Worksheet_Change(ByVal Target As Range)   If Not Intersect(Target, Range("A1")) Is Nothing Then   Application.EnableEvents = False   AncienneValeur = Target.Value Target.Value = 10 'nouvelle valeur   Application.EnableEvents = True   End If   End Sub

---

Hervé.