For Each Détail In Split(TGDr(LG, 8), ",")
If DicTrs.Exists(Détail) Then
LD = LD + 1
For C = 1 To 7: TDon(LD, C) = TGDr(LG, C): Next C
TDon(LD, 8) = Détail
Select Case True
Case TDon(LD, 1) Like "*HR": TDon(LD, 9) = "HR"
Case TDon(LD, 1) Like "*FINANCE": TDon(LD, 9) = "Finance"
Case Else: TDon(LD, 9) = "Other": End Select: End If: Next Détail: End If: Next LG
MGigogne.DernièreLigneÀIndexer = LD