Bonjour à tous

Je cherche à alimenter un combobox suivant le choix d'une première combobox

1) dans Usf_initialize j'alimente la première comboxbox avec une plage de cellules fixes
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
maplage = "User_Prog!E38:E42"
    ComboBox1.RowSource = maplage
 
ComboBox1.Style = fmStyleDropDownList
ComboBox1.ListIndex = 0
2) toujours dans Usf_initialize j'alimente la deuxième comboxbox depuis une base de données
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Dim i As Integer
 
For i = 15 To Sheets("B&D").Range("T65000").End(xlUp).Row
  ComboBox2 = Sheets("B&D").Range("T" & i)
  If ComboBox2.ListIndex = -1 Then ComboBox2.AddItem Sheets("B&D").Range("T" & i)
Next i
 
ComboBox2.Style = fmStyleDropDownList
ComboBox2.ListIndex = 0
Jusqu’ici tout va bien

3) dans ComboBox1_Change

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
 
 
Dim Comb1 As Variant
Comb1 = ComboBox1.Value  'je récupère la valeur de la combobox1
 
 
 
If Comb1 = "Années" Then
 
Dim i As Integer
 
For i = 15 To Sheets("B&D").Range("T65000").End(xlUp).Row
  ComboBox2 = Sheets("B&D").Range("T" & i)
  If ComboBox2.ListIndex = -1 Then ComboBox2.AddItem Sheets("B&D").Range("T" & i)
Next i
ComboBox2.Style = fmStyleDropDownList
ComboBox2.ListIndex = 0
Ensuite je souhaiterais faire de même pour le moi, le jour etc (sélectionnable dans la combo1) mais le problème c'est que j'ai une erreur 380
"Impossible de définir la propriété Value. Valeur de propriété non valide"
Qui pointe sur :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ComboBox2 = Sheets("B&D").Range("T" & i)
Si quelqu'un avais une idée car j'ai testé différente possibilités qui soit me provoque une erreur 380 ou bien une erreur 70 "Accès refusé"

Cordialement Eric