Problème Excel 2010

Bonjour,

Je viens actuellement de passer d'excel 2007 à 2010, et j'ai quelues problème :

J'avais créer un code simple pour gérer un genre de publipostage excel qui fonctionné sur excel 2007, et maintenant sur le 2010, il me dit erreur d'automation, l'objet invoqué s'est déconnecter de ses clients. Ca me le fait 9 fois sur 10 (mais 1 fois sur 10 ca marche )
Le débogage m'envoi à la ligne "Selection.Insert Shift:=xlDown" (voir la ligne qui commence par "'Ligne --------> " ) et excel plante ^^

Si quelqu'un peut m'aider,

Cordialement,

Sub Macro1()
Application.ScreenUpdating = False
Sheets("Courrier").Range("d16").Value = Sheets("Accueil").Range("e2").Value
Sheets("Courrier").Range("d17").Value = Sheets("Accueil").Range("e4").Value
Sheets("Courrier").Range("d18").Value = Sheets("Accueil").Range("e6").Value

b = 0

For z = 2 To 40

' Ajouter destinataire à la liste

If Sheets("Liste").Range("a" & z).Value = "x" Then

b = b + 1

Sheets("Page2").Range("a5").Value = Sheets("Liste").Range("h" & z).Value
Sheets("Page2").Range("b5").Value = "X"
Sheets("Page2").Range("c5").Value = Sheets("Liste").Range("c" & z).Value
Sheets("Page2").Range("e5").Value = Sheets("Liste").Range("d" & z).Value & " " & Sheets("Liste").Range("e" & z).Value & " " & Sheets("Liste").Range("g" & z).Value & " " & Sheets("Liste").Range("f" & z).Value
Sheets("Page2").Range("h5").Value = Sheets("Liste").Range("b" & z).Value

' Ajouter Courrier à la liste

Sheets("Courrier").Range("f8").Value = Sheets("Page2").Range("h5").Value
Sheets("Courrier").Range("c20").Value = Sheets("Page2").Range("h5").Value & ","
Sheets("Courrier").Range("c24").Value = "Nous vous prions d'agréer, " & Sheets("Page2").Range("h5").Value & " l'expression de nos sentiments distingués."
Sheets("Courrier").Range("f9").Value = Sheets("Page2").Range("c5").Value
Sheets("Courrier").Range("f10").Value = Sheets("Liste").Range("d" & z).Value
Sheets("Courrier").Range("f11").Value = Sheets("Liste").Range("e" & z).Value
Sheets("Courrier").Range("f12").Value = Sheets("Liste").Range("g" & z).Value & " " & Sheets("Liste").Range("f" & z).Value


Sheets("Courrier").Select
Rows("1:45").Select
Selection.Copy
Rows("1:1").Select

'Ligne --------> Selection.Insert Shift:=xlDown

Range("A1").Select



lignepage

End If

Next

Sheets("Page2").Select
Rows("5:5").Select
Selection.Delete Shift:=xlUp
Sheets("Courrier").Select
Rows("1:45").Select
Selection.Delete Shift:=xlUp
Range("a1").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$" & (b * 45) '90"
Sheets("Liste").Visible = False
For e = 5 To 50
Sheets("Page2").Range("h" & e).Value = ""
Next
Application.ScreenUpdating = True
End Sub




Sub lignepage()

Sheets("Page2").Select
Rows("5:5").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("6:6").Select
Selection.Copy
Rows("5:5").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A5").Select
End Sub