Sub MacroMathieu()
Columns('A:A').Select
Selection.TextToColumns Destination:=Range('A1'), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:='-', FieldInfo:=Array(Array(1, 1), Array(2, 4))
Columns('A:A').EntireColumn.AutoFit
End Sub