[XL-2010] Macro fonctionne pas sous excel 2010 ?

Ma macro fonctionne tres bien sous excel 2003 mais avec 2010 ca donne un erreur sur le premier selection.pastespecial ??? pouvez-vous m'aider ??? svp

voici la macro complete :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Sub Changement_de_periode()
 
    Sheets("Horaire période -3").Select
    Sheets("Horaire période -3").Name = "Horaire période -x"
    Sheets("Horaire période -2").Select
    Sheets("Horaire période -2").Name = "Horaire période -3"
    Sheets("Horaire période -1").Select
    Sheets("Horaire période -1").Name = "Horaire période -2"
    Sheets("Horaire période -x").Select
    Sheets("Horaire période -x").Name = "Horaire période -1"
    Sheets("Horaire période -1").Select
    Sheets("Horaire période -1").Move Before:=Sheets(2)
    ActiveSheet.Unprotect
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("HORAIRE").Select
    Range("A2:p33").Select
    Selection.Copy
    Sheets("Horaire période -1").Select
    Range("A2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Sheets("HORAIRE").Select
 
    Range("q36").Select
    Selection.Copy
    Range("q8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
 
    Range("c14:d33").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("f14:g33").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("j14:k33").Select
    Selection.ClearContents
    Range("o14:p33").Select
    Selection.ClearContents
    Range("b35").Select
    ActiveSheet.Unprotect
    ActiveCell.FormulaR1C1 = "=R[-2]C+1"
    Range("b35").Select
    Selection.Copy
    Range("b14").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("b35").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("c14").Select
    ActiveSheet.Protect
End Sub