Set Plg = PlgUti(Feuil1.[A1])
Private Sub ComboBox1_Change()
Dim ValPlg(), TLgn() As Long, N As Long, L As Long, C As Long
Me.ListBox1.Clear
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
ValPlg = Plg.Value
TLgn = D.Items(Me.ComboBox1.ListIndex)
For N = 1 To UBound(TLgn)
L = TLgn(N)
Me.ListBox1.AddItem ValPlg(L, 2)
For C = 3 To UBound(ValPlg, 2)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, C - 2) = ValPlg(L, C)
Next C
Next N
End Sub