Problème avec Combobox.AddItem

[Jam]

Salut à tous,

J'ai un classeur avec 2 feuilles. L'une comporte un tableau à une colonne avec une dizaines de données. Dans le second j'ai une Combobox dans laquelle j'essaie de mettre les données du tableau via le code suivant:

Private Sub cbPériode_GotFocus()
Dim tbl As ListObject
Dim x As Range


Set tbl = Feuil3.ListObjects("tblpériodes")
Me.cbPériode.Clear
For Each x In tbl.DataBodyRange.Columns(1)
    Me.cbPériode.AddItem x.Value     'Erreur 13: Incompatibilité de type ???!!!
Next


End Sub

Je ne comprends pas pourquoi j'ai cette erreur.
Je suis preneur de toute suggestion.

Merci d'avance

PS./ Je joins un petit fichier si pas clair

 

[Jam]

[Résolu] Re : Problème avec Combobox.AddItem

Aaargh,

Vous précipitez pas...à peine posté que j'ai trouvé mon erreur.

Manquait le .cells là

For Each x In tbl.DataBodyRange.Columns(1).Cells

Merci pour ceux qui auraient déjà regardé.