Si tu modifies ton listing comme cela......
If Application.WorksheetFunction. _
CountIf(Range("b3:b1000"), Target.Value) > 1 Then
MsgBox "cette valeur existe déjà"
Target.Value = ""
Target.Select
ActiveCell.Offset(0, -1).Select
Selection.ClearContents
ActiveCell.Offset(0, 2).Select
Selection.ClearContents
End If
End If
End Sub
ça devrait s'arranger.
Bonne soirée