Option Explicit
Sub RécupASSU()
Dim CheminFichier As String, LMax As Long, TLus() As String, TRés(), L As Long, _
TSpl() As String, C As Integer, RngCible As Range
Dim ClasseurActuel As Workbook
Dim DLU As Integer
CheminFichier = "C:\Users\manep\Downloads\ASSU.txt" ' Remplacez par le chemin de votre fichier
If Dir(CheminFichier) <> "" Then ' Vérifiez si le fichier existe
ReDim TLus(1 To 1000)
Open CheminFichier For Input As #1
Do While Not EOF(1): LMax = LMax + 1: Line Input #1, TLus(LMax): Loop
Close #1
ReDim TRés(1 To LMax, 1 To 7)
For L = 1 To LMax
TSpl = Split(TLus(L), vbTab)
TRés(L, 1) = CDate(TSpl(0))
For C = 2 To 6: TRés(L, C) = Val(TSpl(C - 1)): Next C
TRés(L, 7) = TSpl(6)
Next L
Set RngCible = ThisWorkbook.Sheets("Ex ASSU").[A1000000].End(xlUp).Offset(1)
RngCible.Resize(LMax, 7).Value = TRés
Else
MsgBox "Le fichier " & CheminFichier & " n'existe pas.", vbExclamation, "RécupASSU"
End If
End Sub