Sub Test()
'
' essai Macro
' Macro enregistrée le 24/05/2017 par Elicha
' ouverture des fichiers
'    ChDir "D:\Mes documents\Bourse"
 '     Workbooks.Open Filename:= _
 '       "D:\Mes documents\Bourse\resultat.xls"
  '
   ' ChDir "C:\Users\Elicha\Desktop"
   '   Workbooks.Open Filename:= _
    '    "C:\Users\Elicha\Desktop\elie.csv"
    '    ActiveWorkbook.SaveAs Filename:="C:\Users\Elicha\Desktop\elie.xls", _
     '   FileFormat:=xlExcel9795, Password:="", WriteResPassword:="", _
     '  ReadOnlyRecommended:=False, CreateBackup:=False
    '
    'ChDir "C:\Users\Elicha\Desktop"
   '  Workbooks.Open Filename:= _
   '     "C:\Users\Elicha\Desktop\camille.csv"
   '     ActiveWorkbook.SaveAs Filename:="C:\Users\Elicha\Desktop\camille.xls", _
    '    FileFormat:=xlExcel9795, Password:="", WriteResPassword:="", _
   '     ReadOnlyRecommended:=False, CreateBackup:=False
   '
  ' ChDir "C:\Users\Elicha\Desktop"
   '  Workbooks.Open Filename:= _
    '    "C:\Users\Elicha\Desktop\epoux.csv"
    '    ActiveWorkbook.SaveAs Filename:="C:\Users\Elicha\Desktop\epoux.xls", _
    '    FileFormat:=xlExcel9795, Password:="", WriteResPassword:="", _
    '    ReadOnlyRecommended:=False, CreateBackup:=False
'
'

Dim PNm, chDos$, w%, wb As Workbook
PNm = Array("Elie", "Camille", "Epoux")
chDos = "C:\Users\Elicha\Desktop\"
For w = 0 To UBound(PNm)
Set wb = Workbooks.Open(chDos & PNm(w) & ".xls")
With wb.Worksheets(1)
'<<<<<<<<<<<<<<<<<<<<<'Traitement
Columns("C:N").Select
    Selection.NumberFormat = "#,##0.00"
    Range("C5").Select
    Selection.Cut
    Range("B5").Select
    ActiveSheet.Paste
    Range("F3:F60").Select
    Selection.Copy
    Range("C3").Select
    ActiveSheet.Paste
    Range("G6").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=LEFT(RC[1],LEN(RC[1])-4)"
    Range("G6").Select
    Selection.AutoFill Destination:=Range("G6:G60"), Type:=xlFillDefault
    Range("G6:G60").Select
    Selection.Copy
    Range("F6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D6").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=VALUE(RC[2])"
    Columns("C:N").Select
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("D6").Select
    Selection.AutoFill Destination:=Range("D6:D60"), Type:=xlFillDefault
    Range("D6:D60").Select
    Selection.Copy
    Range("D6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("G6").Select
    Application.CutCopyMode = False
    Range("G6:G47").Select
    Selection.Replace What:="h6", Replacement:="t6", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("G6").Select
    ActiveCell.FormulaR1C1 = "=LEFT(RC[1],LEN(RC[1])-4)"
    Range("G6:G60").Select
    Selection.Cut
    Range("G6").Select
    Application.CutCopyMode = False
    Range("G6").Select
    ActiveCell.FormulaR1C1 = "=LEFT(RC[2],LEN(RC[2])-4)"
    Range("G6").Select
    Selection.AutoFill Destination:=Range("G6:G60"), Type:=xlFillDefault
    Range("G6:G60").Select
    Selection.Copy
    Range("F6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.Copy
    Range("E6").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=VALUE(RC[1])"
    Range("E6").Select
    ActiveCell.FormulaR1C1 = "=VALUE(RC[4])"
    Range("E6").Select
    ActiveCell.FormulaR1C1 = "=VALUE(RC[1])"
    Range("E6").Select
    Selection.AutoFill Destination:=Range("E6:E60"), Type:=xlFillDefault
    Range("E6:E60").Select
    Selection.Copy
    Range("E6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F5").Select
    Application.CutCopyMode = False
    Selection.Cut
    Range("D5").Select
    ActiveSheet.Paste
    Range("H5").Select
    Selection.Cut
    Range("E5").Select
    ActiveSheet.Paste
    Selection.Cut
    Range("D5").Select
    ActiveSheet.Paste
    Range("I5").Select
    Selection.Cut
    Range("E5").Select
    ActiveSheet.Paste
    Range("I6").Select
    ActiveCell.FormulaR1C1 = "=LEFT(RC[2],LEN(RC[2])-4)"
    Range("I6").Select
    Selection.AutoFill Destination:=Range("I6:I60"), Type:=xlFillDefault
    Range("I6:I60").Select
    ActiveWindow.SmallScroll Down:=-2
    Selection.Copy
    Range("I6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWindow.SmallScroll Down:=-4
    Range("I6:I60").Select
    Selection.Copy
    Range("H6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F6").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=VALUE(RC[2])"
    Range("F6").Select
    Selection.AutoFill Destination:=Range("F6:F60"), Type:=xlFillDefault
    Range("F6:F60").Select
    ActiveWindow.LargeScroll Down:=-1
    Range("K5").Select
    Selection.Cut
    Range("F5").Select
    ActiveSheet.Paste
    Range("I4").Select
    ActiveCell.FormulaR1C1 = "=LEFT(RC[1],LEN(RC[1])-4)"
    Range("I4").Select
    Selection.Copy
    Range("E3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("G:K").Select
    Application.CutCopyMode = False
    Range("F6:F60").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("F6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("G:K").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Range("F3").Select
    Selection.ClearContents
 '   Range("H11").Select

Range("H3").Select
    ActiveCell.FormulaR1C1 = "=RIGHT(RC[-3],LEN(RC[-3])-14)"
    Range("I3").Select
    ActiveCell.FormulaR1C1 = "=VALUE(RC[-1])"
    Range("I3").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H3").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("C3").Select
    Selection.Font.Bold = True
    Range("A1").Select
    Selection.ClearContents
    Range("A2").Select
    With Selection.Font
        .Name = "Arial"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Rows("3:3").Select
    Selection.Insert Shift:=xlDown
    Columns("A:A").EntireColumn.AutoFit
    Columns("B:B").EntireColumn.AutoFit
End With
wb.Close True
Next w
End Sub