sauvegarder données avec calendrier + vba

Bonjour,

J'ai créé un bordereau de saisie (pour des commandes) avec un calendrier en A1. Mais je voudrais que les données du tableau restent en mémoire, quand on change la date de saisie.
j'ai trouvé un code, mais je n'arrive pas à l'adapter à ma feuille.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewCel

If Not Intersect(Range("A1"), Target) Is Nothing Then
NewCel = Target
With Application
.ScreenUpdating = False
.EnableEvents = False
.Undo
If Target <> "" Then Sauvegarde
Target = NewCel
If Target <> "" Then Recupere
.EnableEvents = True
End With
End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False

Columns("A:AI").ColumnWidth = 19
If Not Intersect(Range("A4:AI23"), Target) Is Nothing And Target.Count = 1 Then
Columns(Target.Column).ColumnWidth = 20
End If
End Sub
Private Sub Calendar1_Click()
ActiveSheet.Range("A1").Value = Calendar1.Value
End Sub

Quelqu'un peut-il m'aider?? svp??