Sub import_données_mini_maxi()
Dim myDir$, fn$, txt$, sepa$, A(), N As Long, I As Long, ff As Integer
sepa = ";"
myDir = UserForm.Données_minimaxi_txt.Value
fn = Dir(myDir & "dayfile.txt")
Do While fn <> ""
ff = FreeFile
Open myDir & fn For Input As #ff
Do While Not EOF(ff)
Line Input #ff, txt
N = N + 1: ReDim Preserve A(1 To N)
A(N) = Split(txt, sepa)
Loop
Close #ff
fn = Dir()
Loop
With Worksheets("données_mini_maxi").[A2]
For I = 1 To N
.Offset(I - 1).Resize(, UBound(A(I)) + 1).Value = A(I)
Next
End With
Call Feuil4.format1
End Sub