Workbooks.OpenText filename:="DATA.TXT", _
dataType:=xlDelimited, tab:=True
Workbooks.OpenText Filename:="nomEtChemincomplet de ton fichier , DataType:=xlDelimited, Semicolon:=True
Workbooks.OpenText Filename:="DATA.TXT", _
DataType:=xlDelimited, TextQualifier:=xlTextQualifierDoubleQuote, _
semicolon:=True
Workbooks.Open Filename:="C:\MesDocuments\NomDuFichier.csv"
Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
Semicolon:=True