Bonjour à tous,

Je débute en VBA est j'ai un message d'erreur de type :
Excel ne peut pas terminer cette tâche avec les ressources disponibles. Sélectionnez moins de données ou fermez des applications.
J'utilise du VBA pour mes stats tous les mois.
J'ai un classeur avec 34 onglets.
Le 1er onglet environ 150 lignes tous les mois ou ce trouve la totalité des stats.
Du 1er onglet, j'ai 26 tris différent qui rempli 26 autres onglets.
Le message cité ci-dessus arrive vers le 15eme tris, avant tous ce passe bien.
Actuellement, je ferme le tableau excel, le réouvre et poursuit les tris en 3 fois.
Suis-je claire ?
Merci d'avance pour une réponse sur mon problème.

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
Public gRechercheCodePanne(11) As String, gNomFeuilleCodePanne(11) As String
Public gRechercheTypePanne(7) As String, gNomFeuilleTypePanne(7) As String
Public gRechercheArticle(4) As String, gNomFeuilleArticle(4) As String
 
' Voici une partie du code :
 
Sub Tri_Code_Panne() ' Tri par Module
Dim i As Byte
 
gRechercheCodePanne(de 0 à 11) = "recherche du tri"
gNomFeuilleCodePanne(de 0 à 11) = "nom des onglets"
gRechercheTypePanne(de 0 à 7) =  "recherche du tri"
gNomFeuilleTypePanne(de 0 à 7) = "nom des onglets"
gRechercheArticle(de 0 à 4) =  "recherche du tri"
gNomFeuilleArticle(de 0 à 4) = "nom des onglets"
 
Windows(gProjetMacro).Activate ' projet sur plusieurs classeur
Sheets(gFeuille1_Macro).Select
 
For i = 0 To 26
    Selection.AutoFilter Field:=5, Criteria1:="0"
    Selection.AutoFilter Field:=6, Criteria1:="12"
    Selection.AutoFilter Field:=7, Criteria1:=gRechercheCodePanne(i)
    Cells.Select
    Selection.Copy
    Sheets(gNomFeuilleCodePanne(i)).Select
    Cells.Select
    ActiveSheet.Paste
    Range("A1").Select
    Sheets(gFeuille1_Macro).Select
    Selection.AutoFilter Field:=5
    Selection.AutoFilter Field:=6
    Selection.AutoFilter Field:=7
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "No site"
    Range("A1").Select
Next
 
'ViderPressePapier
 
End Sub