Private Sub Worksheet_SelectionChange sous conditions

Bonjour à tous
Mon problème est le suivant:
Sur une feuille de planning j'ai une date a changer une fois sur deux (+ 2ans) par rapport a ma date de saisie. Exemple
1: date de saisie:02/02/17 échange deshy à faire le 02/02/19
2: date de saisie:02/02/18 échange deshy toujours à faire le 02/02/19
3: date de saisie:02/02/19 échange deshy à faire le 02/02/21
Etc…..
A savoir que ma cellule "date de saisie" change régulièrement de place car j'insère des lignes. Ceci dit elle est toujours dans la même colonne.

Mon code:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Réponse As String
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
  If ActiveCell.Value = 0 Then
  Application.EnableEvents = False
  Else
  Application.EnableEvents = True
  End If
 Réponse = MsgBox("avez-vous changé le deshydrateur", vbYesNoCancel, "echeance deshy")
  If Réponse = vbYes Then
"ma macro qui finit par activecell.clearcontent pour pouvoir remplir ma cellule"
  End If
  If Réponse = vbNo Then
  "ma deuxième macro qui finit par activecell.clearcontent pour pouvoir remplir ma cellule"
  End If
  If Réponse = vbCancel Then
  Exit Sub
  End If
End If
End Sub

Mon code ne marche pas si quelqu'un à une idée, elle sera bienvenue car apprenti débutant en VBA je commence à avoir mal à la tête.
Merci à tous.

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.