Bonjour à tous !!

Je reviens vers vous pour un autre petit problème :

Voila le code que j'utilise

'COMBOBOX 1 CODE CLIENT

'Changement de couleur en vert (Code client)

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_Change()
 
ComboBox1 = UCase(ComboBox1) 'Mettre en MAJUSCULE
 
If ComboBox1.Value = "" Then
Me.ComboBox1.BackColor = RGB(250, 250, 250)
Else
Me.ComboBox1.BackColor = RGB(0, 250, 0)
End If
End Sub
 
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ok As Boolean, i As Integer
For i = 0 To ComboBox1.ListCount - 1
ok = ComboBox1 = ComboBox1.List(i)
If ok Then Exit For
Next
If Trim(ComboBox1) = "" Then Exit Sub
If Not ok Then
ComboBox1.AddItem ComboBox1
Worksheets("Base de données").Cells(Worksheets("Base de données").Range("I65536").End(xlUp).Row + 1, 1) = ComboBox1
ComboBox1 = ""
End If
End Sub
 
Private Sub UserForm1_Activate()
Dim cell As Range
 
For Each cell In Worksheets("Base de données").Range("I2:I" & Worksheets("Base de données").Range("I65536").End(xlUp).Row)
If cell <> "" Then ComboBox1.AddItem cell.Value
Next
End Sub

Le problème est que quand je rentre une valeur dans la combobox, il m'affiche une erreur "Erreur d'execution 9 - L'indice n'appatient pas à la selection" et du coup il me surligne la ligne "For Each cell In Worksheets("Base de données").Range("H2:H" & Worksheets("Base de données").Range("H65536").End(xlUp).Row)"

Quelqu'un à une idée de pourquoi ?