Option Explicit
Private RngDon As Range, SujTR, SujDM
Private Sub UserForm_Initialize()
Dim Sujet
Set RngDon = Feuil1.[A2:F2].Resize(Feuil1.[A65000].End(xlUp).Row - 1)
Sujet = SujetCBx(RngDon, Colonne:=1)
SujTR = SujCBxLike(Sujet, "TR-*"): ComboBox1.List = SujTR(0)
SujDM = SujCBxLike(Sujet, "DM-*"): ComboBox2.List = SujDM(0)
End Sub
Private Sub ComboBox1_Change()
Dim Ligne As Long, TVL()
If Not ComboBox1.MatchFound Then Exit Sub
Ligne = SujTR(1)(ComboBox1.ListIndex)(1)
TVL = RngDon.Rows(Ligne).Value
Me.TextBox5 = TVL(1, 1)
Me.TextBox1 = TVL(1, 2)
Me.TextBox2 = TVL(1, 3)
Me.TextBox3 = TVL(1, 4)
Me.TextBox4 = TVL(1, 5)
End Sub