XL 2013 Code VBA sujet

Bonjour à tous,

Voici mon problème
J'ai ce code bien pratique mais voilà, je souhaiterais remplacer la formule aujourdhui() par =SI(AUJOURDHUI()>$Q;$Q;AUJOURDHUI())

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Intersect(Target, Range("I12:I200")) Is Nothing Then Exit Sub
If Target = "" Then Target.Offset(0, -1) = "=today()" Else Target.Offset(0, -1) = Now()
End Sub

Merci encore de votre aide