Vérification sur date saisie

Bonjour le FORUM

Je souhaiterais savoir si une date a déjà été saisie dans une autre feuille de mon fichier.

Lorsque e saisis une date en C9 dans ma feuille 1 le système vérifie que cette date n'est pas présente dans la plage B7 à B2000 de ma feuille 2.
Si c'est le cas un message d'alerte apparaît

J'ai adapté une macro un peu similiare mais cela ne fonctionne pas
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Alerte si date d'intégration du TI43 est déja connue
'Pour toute saisie dans la plage C7 à C15000 , recherche la valeur saisie dans toutes les 'cellules de la plage C7 à C15000.
'Si la valeur est trouvée Msgbox d'alerte.
'Sinon fin de la macro

If Not Intersect([c9:c9], Target) Is Nothing And Target.Count = 1 Then
With Feuil2
For Each cell In Range("b7:b2000")
If cell.Address <> Target.Address And Target.Value = cell.Value Then
MsgBox "Cette date est déà connue dans la base"
End If
Next
End With
End If
End Sub

Est-ce quequelqu'un peut m'aider?
Cordialement