Je fais pas mal de test afin de tout comprendre et une question me vient sur le fait qu'on cherche HR ou FIN dans la colomne A, B, C ou D ?
Que représente (LD,3) puis,3 ?
Je suppose que c'est la colonne 3 et si c'est bien le cas dans mon fichier que j'ai reçu j'ai bien dans la colonne 3 en début de ligne HR_...FXGX_TG
Donc HR devrait fonctionner
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 Left$(TDon(LD, 3), 3) = "HR_": TDon(LD, 9) = "HR"
Case Left$(TDon(LD, 3), 4) = "FINANCE_": TDon(LD, 9) = "Finance"
Case Else: TDon(LD, 9) = "Other": End Select: End If: Next Détail: End If: Next LG