Je ne sais pas si ca va fonctionnner pour toi, mais dans mon doc ca fonctionne !
Private Sub ComboBox_Tableau_Change() 'ici on évite un bug si l'utilisateur efface le contenu de ComboBox_Tableau
If ComboBox_Tableau.Value = "" Then Exit Sub
ComboBox_Reference.Clear
Dim NomRange As String
NomRange = CaracSpec(ComboBox_Tableau.Value)
If NomDefini(NomRange) Then
ComboBox_Referencee.List = Application.Transpose(Range(NomRange))
Else
ComboBox_Reference.AddItem """Aucune Reference"""
End If
End Sub