Erreur combobox

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)

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 ?

Bonsoir silver.beach

essai en plaçant avant for each:

Worksheets("Base de données").activate

cordialement

Bob