c'est un controle activeXJ'ai bien ce modéle mais je ne sais pas attribuer cette référence :
Me.ComboBox1
Merci à l'avance et bonne journée !
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("B6:B24", "G6:G24"), Target) Is Nothing And Target.Count = 1 Then
a = Sheets("Liste enfants").Range("listeOK").Value
Me.ComboBox1.List = a