Bonjour à tous

Information : la CommandButton4 recherche le mot écrit dans toute la feuille BDD, marche très bien.
Problématique : Les doublons dans ListBox1.
Solution idéel : enlever les doublons mais en basson sur la colonne A de la feuille BDD.

Pour afficher l’Userform1 : feuille Mouvementmatériels ---- Bouton La saisie, dans la Textbox taper a.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub CommandButton4_Click()
 
Dim Prem As String
Dim c As Range
 
With Me.ListBox1
    .Clear
    .ColumnCount = 2
    .BoundColumn = 2
    .ColumnWidths = "0;150"
End With
 
With Worksheets("BDD").UsedRange
    Set c = .Find(Me.TextBox14, LookIn:=xlValues, Lookat:=xlPart)
    If Not c Is Nothing Then
        Prem = c.Address
        Do
            With Me.ListBox1
                .AddItem c.Row
                .List(.ListCount - 1, 1) = c.Offset(, 2 - c.Column)
            End With
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> Prem
    End If
End With
 
If ListBox1.ListCount = 0 Then
MsgBox "Ce matériel n'existe pas dans la base de données"
End If
 
End Sub

Je vous remercie infiniment pour votre attention