2 Comboboxes liées pb avec ListIndex

Bonjour,

Partant d'un code que Robert m'a gentiment donné le w-end dernier, j'ai essayé de l'adapter à quelque chose de simple, mais j'ai un souci.

Je veux saisir un code postal dans un ComboBox nommé CBcp et que l'autre Combobox, nommé CB ville me affiche la ville.
Les données CP et ville sont stockées sur l'onglet 'CP'.

Le code est le suivant :

Private Sub UserForm_Initialize()
Dim p As Range
Dim cel As Range
Set p = Sheets('CP').Range('B2:B' & Sheets('CP').Range('B65536').End(xlUp).Row)
For Each cel In p
CBcp.AddItem cel.Value
CBville.AddItem cel.Offset(0, 1).Value
Next cel
End Sub

Private Sub CBcp_change()
CBville.ListIndex = CBedit.ListIndex
End Sub

Le problème : Quand je sélectionne un code postal dans le Combobox CBcp, j'ai un message d'erreur 424 'objet requis', et le débogueur pointe sur la ligne suivante :

CBville.ListIndex = CBedit.ListIndex

Il semble qu'il y ait un problème avec ListIndex, mais je ne sai pas lequel.

Merci de votre aide et bonne journée.

Fifi