Private Sub ComboBox1_Change()
Dim NomRange As String, SsLst As Range
If ComboBox1.Value = "" Then Exit Sub
ComboBox2.Clear
NomRange = CaracSpec(ComboBox1.Value)
If NomDefini(NomRange) Then
Set SsLst = Range(NomRange)
If SsLst.Rows.Count > 1 Then ComboBox2.List = SsLst.Value Else ComboBox2.List = Array(SsLst.Value)
Else
ComboBox2.AddItem """Aucun centre de coût"""
End If
End Sub