Récap 2 fichiers *.csv ds un seul fichier *.xls

Sub résultat()
'
' résultat Macro
'

'
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "page temporaire1"
    [COLOR="#FF0000"]Workbooks.Open Filename:="..\Achil\A00000A0000001.csv"[/COLOR]
    Range("A:A").Select
    Selection.Copy
    Windows("Resultat.xls").Activate
    Range("A1").Select
    ActiveSheet.Paste
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "page temporaire2"
    [COLOR="#FF0000"]Workbooks.Open Filename:="..\Achil\B00000A0000001.csv"[/COLOR]
    Range("A:A").Select
    Selection.Copy
    Windows("Resultat.xls").Activate
    ActiveSheet.Paste
    Windows("A00000A0000001.csv").Activate
    ActiveWindow.Close
    Windows("B00000A0000001.csv").Activate
    Application.CutCopyMode = False
    ActiveWindow.Close
    Sheets("page temporaire1").Select
    Selection.Cut
    Sheets("Feuil2").Select
    Range("A1").Select
    ActiveSheet.Paste
    If Range("A1").Value = "" Then
    Range("A1").Select
    Else
    If Range("A1").Value <> "" And Range("A2").Value = "" Then
    Range("A1").Select
    Else
    Range("A1").End(xlDown).Offset(1, 0).Select
    End If
    End If
    Sheets("page temporaire2").Select
    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    Range("A1:A100").Select
    Selection.Cut
    Sheets("Feuil2").Select
    ActiveCell.Select
    ActiveSheet.Paste
    Application.DisplayAlerts = False
    Sheets("page temporaire1").Delete
    Sheets("page temporaire2").Delete
    Application.DisplayAlerts = True
    Sheets("Feuil2").Select
    Range("A:A").Select
    Selection.TextToColumns Destination:=Range("A:A"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _
        True
    Columns("A:A").EntireColumn.AutoFit
    Columns("B:B").EntireColumn.AutoFit
    Columns("C:C").EntireColumn.AutoFit
    Columns("D:D").EntireColumn.AutoFit
    Range("A1:D1").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

End Sub