J'ai testé de mon coté avec celle-ci
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Trouve As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String
Valeur_Cherchee = ActiveCell.Offset(-1, 0).Value
Set PlageDeRecherche = Range(ActiveCell.Offset(-2, 0), ("C1"))
Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
If Not Trouve Is Nothing Then
MsgBox "La valeur existe d?j?"
End If
End Sub
J'ajouterai quand meme juste après : valeur_cherchée =
If Valeur_Cherchee = "" Then
Exit Sub
End If
sinon çà va être galère à chaque clic dans une cellule vide
Et pendant qu'on y est on peut aussi personnaliser le message de doublon :
MsgBox "La valeur" & Valeur_Cherchee & "existe déjà"