Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
If c.Column = 1 And c.Value = "Terminé" And c.Count = 1 Then c(1, 5) = Date
End Sub
Bonjour DoubleZéro, Forum,Bonjour, subirubi , le Forum,
Comme ceci ( ? ), dans le module de l'onglet "Feuil1"... En espérant que cela fonctionne pour un fichier partagé.
A bientôtVB:Option Explicit Private Sub Worksheet_Change(ByVal c As Range) If c.Column = 1 And c.Value = "Terminé" And c.Count = 1 Then c(1, 5) = Date End Sub