XL 2010 Code erreur entre excel 2010 et 2013

[piwi]

Bonjour le fil,
J'ai un fichier qui fonctionne très bien sur la version 2010 mais pas sur la version 2013 office. Je vous joins mon code, si quelqu'un peu m'aider pour que je fichier fonctionne sur les deux versions:
Sub Macro1()
'
' Macro1 Macro
'
'
Range("K1:O4825").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll ToRight:=-2
ActiveWindow.SmallScroll Down:=-6
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("listeprod").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("listeprod").Sort.SortFields.Add Key:=Range( _
"A1:A4825"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("listeprod").Sort
.SetRange Range("A1:E4825")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("Extraction de Vagroup").Select
Range("A1:BE4825").Select
Selection.ClearContents
Sheets("listeprod").Select
Range("F1").Select
End Sub
Merci

 

[piwi]

Re bonjour,
Pas reveillé ce matin c'etait simplement les macros qui n'etaient pas activés
Piwi