Supprimer céllules

Bonjour, Dans une Macro J'ai cette formule

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, [E2:E999]) Is Nothing Then
If IsDate(Target.Value) Then Target.Offset(0, -1).ClearContents
ElseIf Not Intersect(Target, [D2:D999]) Is Nothing Then
If IsDate(Target.Value) Then Target.Offset(0, 1).ClearContents
End If
Application.EnableEvents = True
End Sub

Exemple en colonne E j'ai une date sortie et dans la colonne D une date rentré , lorsque je rentre une date , la date sortie s'efface et vis et versa. Dans la colonne C j'ai des Noms serait-il possible de garder cette formule et de la modifier
pour que en mettant une date sortie en D la cellule en E et en C s'éfface