Macro de Date

[Cruz]

Bonjour tout le monde

J'ai une macro du style:

Private Sub Worksheet_SelectionChange(Byval Target As Range)
 If (...) Then
 Range('A1') = Date
End If
End Sub

J'aimerai que la date s'insrive dans A1 Si la cellule A2 change (en gros la date de modification de la cellule A2)

merci d'avance
a+ cruz