For i = 1 To UBound(T_Data, 1) '
T_Report(i, 1) = CDate(T_EnTete(2, 5)) 'dateEcrit
T_Report(i, 2) = T_EnTete(2, 6) 'N° Ecrit
'''''scinde code du libellé'''''''''''''''''''''''
T_Report(i, 3) = Val(T_Data(i, 1)) 'N°Compte '*****
T_Report(i, 4) = Right(T_Data(i, 1), (Len(T_Data(i, 1)) - Len(T_Report(i, 3)) - 1)) 'Libellé ****
Next i