Graphique et erreur automation

Bonjour,

j'ai un problème sur une de mes macros.

Je fais un recherche dans une base de données pour récupérer des infos (ça pas de problème )

et ensuite je veux faire des graphiques avec ces données

j'ai fait la macro, il y a 1 ou 2 ans sur Excel 2007, ça fonctionnais très bien

maintenant, nous sommes passer en Excel 2010, est ça ne fonctionne plus (mais je suis pas convaincu que ce soit lier à la version d'excel )

le code :

Sub Affich_Graphique()

Dim admis As Integer
Dim flagAdmis As Boolean
Dim chaineadmis As String
Dim vrai As Integer
Dim flagVrai As Boolean
Dim chainevrai As String
Dim Faux As Integer
Dim flagFaux As Boolean
Dim chainefaux As String

    flagAdmis = False
    flagVrai = False
    flagFaux = False

    For i = 2 To Range("a65536").End(xlUp).Row
        If Range("c" & i).Value = "admissible" And flagAdmis = False Then
            admis = i
            flagAdmis = True
        ElseIf Range("c" & i).Value = "Vrai" And flagVrai = False Then
            vrai = i
            flagVrai = True
        ElseIf Range("c" & i).Value = "Faux" And flagFaux = False Then
            Faux = i
            flagFaux = True
        End If
    Next i

    If admis + 9 < Faux Then

        ActiveSheet.Shapes.AddChart.Select
        ActiveChart.ChartType = xlColumnClustered
        ActiveChart.ApplyLayout Layout:=3
        ActiveChart.ChartTitle.Text = "Défauts Admissible"

        While ActiveChart.SeriesCollection.Count <> 0
            ActiveChart.SeriesCollection(1).Delete
        Wend

        i = admis
        Do While i < admis + 10
            With ActiveChart
                .SeriesCollection.NewSeries
                With .SeriesCollection(.SeriesCollection.Count)
                    .Name = Range("a" & i).Value 'Nom de la série
                   .XValues = 1
                    .Values = Range("d" & i).Value
                End With
            End With
            i = i + 1
        Loop
        For Each co In ActiveChart.SeriesCollection
            co.ApplyDataLabels
            co.DataLabels.Orientation = xlUpward
        Next
        MsgBox ("serie")
    End if
end sub

quand je lance ma macro, je me retrouve avec l'erreur

erreur d'éxecution '-2147417848(80010108)

Erreur Automation

l'objet invoqué s'est déconnecté de ses clients

après plusieurs test, je pense que l'erreur viens de la ligne

ActiveChart.ApplyLayout Layout:=3

sans en etre convaincu

mais le plus grand problème c'est que si je le fais tourner en pas à pas, il ne bug pas du tout

auriez vous un idée d'ou peu venir le probleme ?

Merci d'avance

edit : et l'erreur n'apparait que sur mon PC, si je le lance sur un autre, il n'y a pas d'erreur