Empecher les doublons sans effacer les cellules non vides

Bonjour à tous,

Je souhaiterais empêcher l'utilisateur d'entrer des valeurs identiques dans une plage de cellules

Mais par contre si dans une cellule non vide l'utilisateur entre une valeur existant déjà dans une autre cellule de la plage, alors la valeur d'origine de la cellule ne doit pas être supprimée

Dans le fichier ci-joint le code que j'ai entré interdit bien les doublons mais si la cellule contient déjà une valeur alors cette valeur

est supprimée

Merci d'avance pour votre aide

aalex85

Bonjour,

Essaie comme cela

Private Sub Worksheet_Change(ByVal Target As Range)
'Empêcher les doublons sur plage "B10:B20"
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("B10:B20")) Is Nothing Then
        If Application.CountIf(Range("B10:B20"), Target) > 1 Then
            MsgBox (" CE PROJET EXISTE DEJA !")
            Application.Undo
        End If
    End If
End Sub

A+

Merci Frangy pour cette rapide réponse et la solution apportée à mon problème.

Cordialement

aalex85