Bonjour à tous, j'arrive a enlever les doublons de ma combobox mais je ne peux plus selectionner les lignes correspondantes.

ce que j'aimerais se serais de selectionner toutes les lignes dans ma base de données qui font référence à la combobox (N° de semaine). en enlevant biensur les doublons.

le code joint est sans la suppression de doublons.
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
32
Private Sub ComboBox1_DropButtonClick()
Dim nomfeuille As String
 
'je renseigne le nom de la feuille
nomfeuille = "Base de données"
 
'je défine malist
malist = Sheets(nomfeuille).Range("H5:H" & Sheets(nomfeuille).Range("H" & Rows.Count).End(xlUp).Row)
'je remplis ma combo
Me.ComboBox1.List = malist
 
End Sub
 
 
 
 
 
Private Sub ComboBox1_Change() 'au changement dans la ComboBox1
Sheets("base de données").Select
Cells(ComboBox1.ListIndex + 5, 1).EntireRow.Select 'sélectionne la ligne correspondante
Selection.Copy
 
End Sub
 
 
Private Sub CommandButton1_Click()
Application.CutCopyMode = False
    Selection.Copy
     Sheets("Feuil1").Select
    Range("A2105").Select
    ActiveSheet.Paste
End Sub