Sub Demo1a()
Const DEB = 4, FIN = 113
ChDrive ThisWorkbook.Path: ChDir ThisWorkbook.Path
CSV = Application.GetOpenFilename("Fichiers csv ,*.csv", , _
" Sélection des fichiers de mesures :", , True)
If Not IsArray(CSV) Then Exit Sub
D$ = Left$(CSV(1), InStrRev(CSV(1), "\"))
ReDim VA(UBound(CSV), DEB - 1 To FIN)
Me.UsedRange.Clear
With CreateObject("ADODB.Stream")
.Charset = "UTF-8"
For N% = 1 To UBound(CSV)
VA(N, DEB - 1) = Split(Replace(CSV(N), D, ""), ".")(0)
.Open
.LoadFromFile CSV(N)
SPQ = Split(.ReadText, vbCrLf)
.Close
If UBound(SPQ) >= FIN Then
For R% = DEB To FIN
SP = Split(SPQ(R), ",")
If UBound(SP) > 0 Then
If VA(0, R) = "" Then VA(0, R) = SP(0)
VA(N, R) = SP(1)
End If
Next
End If
Next
End With
With Cells(1).Resize(UBound(VA) + 1, FIN - DEB + 2).Columns
.Value = VA
' .Item(30).Delete
.AutoFit
End With
End Sub