Décaler activecell de 2 cellules à droite

Bonsoir le forum

j'aimerais que quand une cellule est modifiée dans la colonne D alors la cellule active se décalle en F
par exemple si je saisie une valeur en D12 alors la cellule active devient f12 .
pourquoi le code ci dessus ne marche pas ??

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range('d4:d57')) Is Nothing Then
If ActiveCell.Column = 4 Then ActiveCell = ActiveCell.Offset(0, 2)

End If
End Sub

Merci