Bonjour je n'arrive pas à remplir ma combobox je crois avoir mis un controleactivX dans la feuille 3 d'excel

que ce soit Private Combobox1_enter ou _click ça ne marche pas la combobox ne se remplit pas
on dirait que ça ne vit pas.. Toujours débutant pouvez vous m'aider à lever le pb SVP, Merci

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
Private Sub ComboBox1_Click()
Dim TbG, Tb1, x As Long
 
 
ComboBox1.AddItem ""
 
 
 '**************** METHODE 4 RETENUE CAR  si ongle BS possède 500 000 éléments traités = 2s  **********************
 
 With Sheets(2)
 x = WorksheetFunction.CountIf(.Range("B9", .Range("L" & Rows.Count).End(xlUp)), "T")
 If Not x = 0 Then
   TbG = .Range("B9", .Range("L" & Rows.Count).End(xlUp)) 'voir ci-dessus
   ReDim Tb1(1 To x, 1 To 2)
   x = 1
 End If
End With
 With Sheets(3)
 
   For Ligne = 1 To UBound(TbG, 1) 'on boucle sur le variable TbG
     If TbG(Ligne, 7) = "T" Then 'la condition (traduit si J&ligne = combo)
       Tb1(x, 1) = TbG(Ligne, 11): Tb1(x, 2) = TbG(Ligne, 1):
 
       ComboBox1.AddItem Tb1(x, 1) & "_" & Tb1(x, 2)
       x = x + 1
     End If
   Next Ligne
End With
End Sub