Alimenter un combobox par une liste filtrée suivant les résultats d'autres combobox

Function SujetMotsClés(ByVal Src, Optional ByVal Séparat As String = " ")
Rem. —— Restitue un sujet de mots clés.
'  Src: Range ou tableau 2D d'une seule colonne à inventorier.
'  Séparat: Groupe de caractères à identifier comme séparateur. Facultatif: un espace assumé.
' Remarque: Certains caractères spéciaux sont remplacés par un espace avant décomposition en mots,
'  s'il ne font pas partie de Séparat.
Dim CarEspac As String, N As Long, Te(), Le As Long, Mot As String, TSpl() As String, Ls As Long, _
  Mots() As Variant, LgnOrg() As Long, Sujet, LesListes() As Variant, TLgn() As Long, YEnAPas As Boolean
CarEspac = "!""#$%&'()*+,-./:;<=>?@[\]^_`{|}~¡¦§¨«¬®¯»¿"
For N = 1 To Len(Séparat): CarEspac = Replace$(CarEspac, Mid$(Séparat, N, 1), ""): Next N
If TypeName(Src) = "Range" Then Te = Src.Value Else Te = Src
For Le = 1 To UBound(Te)
  Mot = Te(Le, 1): For N = 1 To Len(Mot)
  If InStr(CarEspac, Mid$(Mot, N, 1)) > 0 Then Mid$(Mot, N, 1) = " "
  Next N
  TSpl = Split(Mot, Séparat): YEnAPas = True
  For N = 0 To UBound(TSpl): Mot = Trim$(TSpl(N))
  If Mot <> "" Then
  Mid$(Mot, 1, 1) = UCase$(Mid$(Mot, 1, 1)): Ls = Ls + 1: ReDim Preserve Mots(1 To Ls), LgnOrg(1 To Ls)
  Mots(Ls) = Mot: LgnOrg(Ls) = Le: YEnAPas = False: End If
  Next N
  If YEnAPas Then
  Ls = Ls + 1: ReDim Preserve Mots(1 To Ls), LgnOrg(1 To Ls)
  Mots(Ls) = Empty: LgnOrg(Ls) = Le: End If
  Next Le
Sujet = SujetCBx(WorksheetFunction.Transpose(Mots))
LesListes = Sujet(1)
For N = LBound(LesListes) To UBound(LesListes)
  TLgn = LesListes(N)
  For Ls = LBound(TLgn) To UBound(TLgn): TLgn(Ls) = LgnOrg(TLgn(Ls)): Next Ls
  LesListes(N) = TLgn
  Next N
SujetMotsClés = Array(Sujet(0), LesListes)
End Function

Private Sub CL_Change(ByVal Complet As Boolean, ByVal NbrLgn As Long)
If NbrLgn = 1 Then Exit Sub
LCou = 0
TLgn(Produit.Value) = 0
ReDim VLgn(1 To 1, 1 To 51)
GarnirChamps ' pour les vider ici en fait
End Sub

Private Sub CL_Résultat(Lignes() As Long)
If UBound(Lignes) > 1 Then Exit Sub
LCou = Lignes(1)
TLgn(Produit.Value) = LCou
VLgn = CL.PlgTablo.Rows(LCou).Resize(, 51)
GarnirChamps
End Sub

Private Sub GarnirChamps()
Rem. Garnissez vos contrôles ici, à partir des VLgn(1, x) ' pas x à chaque fois bien sûr ! Le n° de la colonne concernée !!
End Sub

Private Sub GarnirChamps()
Dim TNomTiss(), N&, C&, TSpl$(), S&
ReDim TNomTiss(0 To 100), TPrixTiss(0 To 100) ' TPrixTiss() As Currency: global
N = -1
For C = 31 To 41 Step 2
  TSpl = Split(VLgn(1, C), vbLf)
  For S = 0 To UBound(TSpl)
     N = N + 1: TNomTiss(N) = TSpl(S): TPrixTiss(N) = VLgn(1, C + 1)
     Next S, C
If N >= 0 Then ReDim Preserve TNomTiss(0 To N): CBxTissu.List = TNomTiss Else CBxTissu.Clear

End Sub

Private Sub GarnirChamps()
Dim TNmTBrut(0 To 100), TPxTBrut(0 To 100) As Currency, NomTiss$, TNomTiss(), N&, C&, TSpl$(), S&
N = -1
For C = 31 To 41 Step 2
  TSpl = Split(Replace(VLgn(1, C), vbLf, " "))
  For S = 0 To UBound(TSpl)
  NomTiss = Trim$(TSpl(S)): If NomTiss <> "" Then N = N + 1: _
  TNmTBrut(N) = NomTiss: TPxTBrut(N) = VLgn(1, C + 1)
  Next S, C
If N >= 0 Then
ReDim TNomTiss(0 To N), TPrixTiss(0 To N): S = -1 ' TPrixTiss() As Currency: global
With New TableIndex
  .Init 0, N: While .Actif: .BInfA = TNmTBrut(.B) < TNmTBrut(.A): Wend
  .Parcourir: While .Actif: S = S + 1: N = .Suivant: _
  TNomTiss(S) = TNmTBrut(N): TPrixTiss(S) = TPxTBrut(N): Wend: End With
  CBxTissu.List = TNomTiss
Else: CBxTissu.Clear: End If
   
End Sub