Bonjour,
ALT F11 pour ouvrir l'éditeur VBE
Voir module Sheet1 (Prep).
Cdlt
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = ActiveSheet.ListObjects(1).ListColumns(8).DataBodyRange
If Not Intersect(Target, rng) Is Nothing Then
If Target.Count > 1 Then Exit Sub
Select Case Target.Value
Case Is = "n"
Target.Offset(, 2) = vbNullString
Case Is = "o"
Target.Offset(, 2) = Date
End Select
End If
Set rng = Nothing
End Sub