Problème pour tester la saisie d'une liste déroulante

Bonjour,

J'obtiens une erreur à l'exécution de mon code sur le test de la valeur saisie d'une liste déroulante de mon tableau contenant 2 valeurs "Cancel or Validate".

Si Cancel est choisi, j'efface les éléments déjà saisis.

SI Validate est choisi, je passe à la suite du traitement

Après avoir essayé plusieurs tentatives je poste sur ce forum car je tourne en rond.

Je mets la procédure en attachement.

Merci par avance de votre aide

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [stocks1[[Input]:[Output]]]) Is Nothing Or Target = "" Then
        Exit Sub
    End If
    Dim mouvement As Range
    Dim stock As Range
    Dim dtAuj As String
    Dim reponse As String
    dtAuj = Format(Date, "dd/mm/yy")

    'Check Cancel or Validate
    '
    reponse = Intersect(Target, [stocks1[Validation]])
    MsgBox ("valeur de reponse " & reponse)

    If reponse = "Cancel" Then
        EffaceChamps
        Exit Sub
    End If
    'La saisie est validée,
    'MAJ champs Balance , Factory Stock et Date
    Set mouvement = Intersect(Target.EntireRow, [stocks1[Balance]])
    Set stock = Intersect(Target.EntireRow, [stocks1[Factory Stock]])
    mouvement = mouvement + Intersect(Target.EntireRow, [stocks1[Input]]) - Intersect(Target.EntireRow, [stocks1[Output]])
    stock = stock + Intersect(Target.EntireRow, [stocks1[Input]]) - Intersect(Target.EntireRow, [stocks1[Output]])
    Intersect(Target.EntireRow, [stocks1[date]]) = dtAuj
    'création de l'enregistrement mouvement
    'A developper
    '
    'Effacement des champs saisis
    EffaceChamps
End Sub

Private Sub EffaceChamps()
'Effacement des champs saisis
Intersect(Target.EntireRow, [stocks1[Input]]).ClearContents
    Intersect(Target.EntireRow, [stocks1[Output]]).ClearContents
    Intersect(Target.EntireRow, [stocks1[date]]).ClearContents
    Intersect(Target.EntireRow, [stocks1[Comment]]).ClearContents
End Sub