Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("D6:E376")) Is Nothing Then
Application.ScreenUpdating = False
Dim i%
If LCase(Target) = "ok" Then ' Si ok entré
For i = 0 To 3 ' Répéter 4 fois "A faire" 9 jours plus tard
Cells(Target.Row + 9 + i, Target.Column) = "A faire"
Next i
End If
End If
End Sub