Bonjour à tous !

Je rencontre des problèmes de type Erreur Automation sur le morceau de code suivant. (l'objet invoqué s'est déconnecté de ses clients)


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
For Each s In wbNEW.Sheets
 
    If tabArray(s.Index, 1) < 3 Then
        If tabArray(s.Index, 1) > 0 Then
            With wbExport.Worksheets(s.Name)
               .Activate
               .Cells.Copy
               .Cells.PasteSpecial Paste:=xlPasteValues
               .Tab.ColorIndex = 55
            End With
        End If
        If tabArray(s.Index, 1) = 1 Then
            wbExport.Worksheets(s.Name).Tab.ColorIndex = 49
        End If
    Else
    wbExport.Worksheets(s.Name).Tab.ColorIndex = 6
    End If
 
Next s
L'erreur ne de produit pas toujours, mais l'arrêt se fait toujours sur :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
               .Cells.PasteSpecial Paste:=xlPasteValues
Une chose étonnante est que j'arrive à reprendre l'exécution de la macro après l'arrêt. Autre chose, si je veux quitter Excel, l'appli plante.

Que signifient ces types d'erreurs ? Sont-ils vraiment liés à mon code ? Quels sont mes recours ?

Merci d'avance !
Laurent