Dim ciX As ComboItem 'Remplit le contrôle ImageCombo, sélectionne le 1er élément Set ciX = icboCouleurs.ComboItems.Add(Text:="jaune", Image:=1) Set ciX = icboCouleurs.ComboItems.Add(Text:="cyan", Image:=2) Set ciX = icboCouleurs.ComboItems.Add(Text:="magenta", Image:=3) icboCouleurs.ComboItems(1).Selected = True