With cboco2 'prend en compte la ComboBpx "cbocd1"
.ColumnCount = 2 'le Combobx aura Deux Colonnes
.ColumnWidths = "0;1" 'La deuxième sera Visible (Code)
.Clear 'On efface le ComboBox
For I = 16 To DL 'boucle sur les lignes 16 à DL
.AddItem I 'ajoute un élément à la ComboBox on récupère le numéro de ligne I dans la colonne 0 (cachée) de la ComboBox
.Column(1, .ListCount - 1) = O.Cells(I, "B") 'récupère le code dans la colonne 1 de la ComboBox
Next I 'prochaine ligne de la boucle