Bonjour Jacques
Le plus simple est pas macro, et aussi le plus fiable
Copie ce code, puis clique droit sur le bouton de l'onglet de la feuille, puis sur "visualiser le code", tu te trouves maintenant dans le VBA, tu colles le code ci-dessous
Option Explicit
Dim vAdresseCell
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("A1:A65536")) Is Nothing Then: Exit Sub
Range(vAdresseCell).Offset(0, 1) = Time
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Intersect(Target, Range("A1:A65536")) Is Nothing Then: Exit Sub
vAdresseCell = ActiveCell.Address
End Sub
Il y a une autre méthode en formule avec l'option d'itération (valeur maxi à 1) des calculs d'Excel, et avec une formule de ce type =SI(ESTVIDE(A1);"";SI(NBCAR(B1)>0;B1;MAINTENANT()))
@+Jean-Marie