Doublons dans la liste deroulante

Bonjour,

J'ai exécuté le code suivant sur ma feuille de calcul. Je ne parviens pas à empecher les doublons dans la selection

Private Sub WorkSheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2019/11/13
Dim xRng As Range
Dim xValue1 As String
Dim xValue2 As String
If Target.Count > 1 Then Exit Sub
On Error Resume Next
Set xRng = Cells.SpecialCells(xlCellTypeAllValidation)
If xRng Is Nothing Then Exit Sub
Application.EnableEvents = False
If Not Application.Intersect(Target, xRng) Is Nothing Then
xValue2 = Target.Value
Application.Undo
xValue1 = Target.Value
Target.Value = xValue2
If xValue1 <> "" Then
If xValue2 <> "" Then
If xValue1 = xValue2 Or _
InStr(1, xValue1, "/ " & xValue2) Or _
InStr(1, xValue1, xValue2 & ",") Then
Target.Value = xValue1
Else
Target.Value = xValue1 & "/" & xValue2
End If
End If
End If
End If
Application.EnableEvents = True
End Sub

Edit modo : code mis entre balises, merci d'y faire attention la prochaine fois

Merci d'avance pour un coup de main.

Bonjour

Tu devrais joindre ton fichier,, au besoin anonymisé....

Bye !

Bonjour barou_sanogo

Je vous invite à lire/relire la charte du forum [A LIRE AVANT DE POSTER]

• Ne postez pas la même question sur un autre forum pour éviter de faire perdre bêtement du temps aux membres sur un problème qui peut être déjà résolu sur l'autre forum. L'inverse est également valable, si vous avez déjà posé votre question sur un autre forum, ne créez pas un doublon sur ce forum (à moins d'avoir clôturé le sujet sur l'autre forum).

Je clôture donc le sujet ici, puisque vous avez obtenu une réponse ailleurs