Sub EXPORT_VERS_STATS()
Workbooks.Open Filename:= _
"S:\DONNEES\STATS\stats_2012_V1_071211.xls"
ThisWorkbook.Activate
ActiveWindow.WindowState = xlNormal
Range("B12").Select
Selection.Copy
Windows("stats_2012_V1_071211.xls").Activate
Range("A7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ThisWorkbook.Activate
ActiveWindow.WindowState = xlNormal
Application.CutCopyMode = False
Range("C12").Select
Selection.Copy
Windows("stats_2012_V1_071211.xls").Activate
Range("B7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ThisWorkbook.Activate
ActiveWindow.WindowState = xlNormal
Application.CutCopyMode = False
Range("D12").Select
Selection.Copy
Windows("stats_2012_V1_071211.xls").Activate
Range("C7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ThisWorkbook.Activate
ActiveWindow.WindowState = xlNormal
Application.CutCopyMode = False
Range("J55").Select
Selection.Copy
Windows("stats_2012_V1_071211.xls").Activate
Range("AL7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ThisWorkbook.Activate
ActiveWindow.WindowState = xlNormal
Application.CutCopyMode = False
Range("J56").Select
Selection.Copy
Windows("stats_2012_V1_071211.xls").Activate
Range("AM7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveWorkbook.Save
End Sub