ReBonjour,
Voici le code que j'ai pu récupérer et adapter. Cela fonctionne très bien. Je le partage ici pour de futures utilisations.
Bon week-end et bonne soirée
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
Dim AdjacentCell As Range
' Vérifiez si la modification a été faite dans la colonne spécifiée (par exemple, la colonne A)
If Not Intersect(Target, Me.Range("E:E")) Is Nothing Then
Application.EnableEvents = False
For Each Cell In Intersect(Target, Me.Range("E:E"))
If Cell.Value = "ok" Then
Set AdjacentCell = Cell.Offset(0, 1)
If IsEmpty(AdjacentCell) Then
AdjacentCell.Value = Date...