exemple
Sub lecture_csv()
'
fichier = "C:\Users\Michel\Downloads\CA_QC_Wafer[3]_water_407.txt" ' à adapter
'
Workbooks.OpenText Filename:= _
fichier, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=True, _
Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers:=True
End Sub