Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = Range("N:N").Column Then
If Target = "RDV" Then
Target.Offset(0, 4) = DateAdd("d", 120, Date)
Else
If Target = "BONUS" Then
Target.Offset(0, 4) = DateAdd("d", 60, Date)
Else
Target.Offset(0, 4) = Date
End If
End If
End If
End Sub