déceler doublon à la saisie

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range 'déclare la variable r (Recherche)
 
If Target.Address <> "$A$2" Then Exit Sub 'si le chamgement à lieu ailleurs qu'en A2, sort de la procédure
If Target.Value = "" Then Exit Sub 'si A2 est effacée, sort de la procédure
 
Set r = Sheets("Feuil2").Columns(1).Find(Target.Value, , xlValues, xlWhole) 'définit la recherche
If Not r Is Nothing Then 'condition : si il existe au moins une occurrence dans la colonne A de l'onglet "Feuil2"
    MsgBox "Existe déjà !" 'message
    Target.Value = "" 'efface la valeur éditée
    Target.Select 'place le curseur dans la cellule A2
End If 'fin de la condition
End Sub