Vba

Sub Commande_client_du_jour()
    Workbooks.OpenText Filename:=Chemin & "CDE client du jour.xls", _
        Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array _
        (1, 1), Array(2, 1), Array(3, 4), Array(4, 9), Array(5, 9), Array(6, 9), Array(7, 1), Array(8 _
        , 9), Array(9, 9), Array(10, 1), Array(11, 9), Array(12, 9), Array(13, 1), Array(14, 9), _
        Array(15, 9), Array(16, 1), Array(17, 9), Array(18, 9), Array(19, 9), Array(20, 9)), _
        TrailingMinusNumbers:=True
    Columns("F:F").Select
    Selection.Cut
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Columns("D:D").EntireColumn.AutoFit
    Columns("E:E").Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    Selection.CurrentRegion.Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Windows("CDE client du jour.xls").Activate
    Sheets("CDE client du jour").Select