[VBA-E] Remplir combobox à partir de cellules

Bonjour,

pour réussir à remplir ma combobox, j'ai créer le code suivant :

dans userform_initialize()

Dim cell, Plage
Set Plage = Sheets("Param").Range("I3:I14")
For Each cell In Plage
If cell.Value <> "" Then
Me.liste.AddItem cell
End If
Next cell

je ne vois pas ou est mon erreur ? Excel se stoppe sur la ligne suivante

Me.liste.AddItem cell

avec le message suivant :

Run-time error '-2147352571 (80020005)

Type mismatch.

j'essaie simplement d'insérer une string du type "ABCD1234" sans espace ou autres ??

merci d'avance pour vos éclaircissement !