Ajout d'un nouveau combobox avec recherche intuitive

Private Sub UserForm_Initialize()
Dim TbCD(), TDAT(), TInt(), Le&, Ls&, C&
TextBox1.Text = Date
TbCD = PlgUti(FeuiCD.Rows(3)).Value
TDAT = PlgUti(FeuiDAT.Rows(3)).Value
ReDim TInt(1 To UBound(TbCD) + UBound(TDAT), 1 To 19)
For Le = 1 To UBound(TbCD): Ls = Ls + 1: TInt(Ls, 1) = TbCD(Le, 2): TInt(Ls, 2) = TbCD(Le, 1)
   TInt(Ls, 3) = TbCD(Le, 22): For C = 4 To 19: TInt(Ls, C) = TbCD(Le, C - 1): Next C, Le
For Le = 1 To UBound(TDAT): Ls = Ls + 1: TInt(Ls, 1) = TDAT(Le, 2): TInt(Ls, 2) = TDAT(Le, 1)
   TInt(Ls, 3) = TDAT(Le, 26): For C = 4 To 19: TInt(Ls, C) = TDAT(Le, C - 1): Next C, Le
ReDim TDon(1 To Ls, 1 To 19): Ls = 0
With New TableIndex
   .Init 1, UBound(TInt): While .Actif: .BInfA = TInt(.B, 2) > TInt(.A, 2): Wend
   .Parcourir: While .Actif: Ls = Ls + 1: Le = .Suivant
      For C = 1 To 19: TDon(Ls, C) = TInt(Le, C): Next C: Wend: End With
SujPrinc = SujetCBx(TDon, Base:=0)
Sujet = SujPrinc: ComboBox1.List = Sujet(0)
End Sub

Function TypeDon(ByVal Cel As Range) As String
TypeDon = TypeName(Cel.Value)
End Function

Sub Convert() 
With Columns("D:D")
   .Insert Shift:=xlToRight
   '.select '' ne pas mettre dans le code surtout,
   ''à activer pour compréhension de la suite si besoin...
   ''le with column("D:D") pointe vers la colonne E apparente suite à l'insertion,
   ''mais qui représente toujours l'objet d'origine à savoir la colonne pointée via l'instruction With...
   .Offset(0, -1).FormulaR1C1 = "=IF(RC[1]<>"""",RC[1]*24/24,"""")"
   .Offset(0, -1).NumberFormat = "m/d/yyyy"
   .Offset(0, -1).Copy
   .Offset(0, -1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
   .Delete
End With
End Sub