date de la saisie d'une cellule

[didou]

Comment peut on indiquer la date de la saisie de la cellule A1 dans la cellule B1, sans que cela recalcule la date tous les jours...

Merci

 

[Romuald]

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Row =1 and Target.Column = 1 Then
range("B1").value = Date
End If

En Sub