Dépassement capacité

Bonjour le forum,

J'avais une macro efficace concocté par paritec mais quand j'ai rajouter des colonnes une erreur de capacité est apparue (débogage en jaune);

Sub compilation()
    Dim sh As Worksheet, fin&, fin1&, aa
    'Sheets("base de donnees").Cells.Clear
    For Each sh In Worksheets
        If Not sh.Name = "base de donn?es" Then
        If Not sh.Name = "Data SAP" Then
        If Not sh.Name = "Data PDF" Then
            [color=#BFBF00]aa = sh.Range("A2:x" & sh.Range("B" & Rows.Count).End(xlUp).Row)
[/color]            With Sheets("base de donnees")
            fin = .Range("B" & Rows.Count).End(3).Row + 1
            fin1 = .Range("C" & Rows.Count).End(3).Row + 1
            If fin1 > fin Then fin = fin1
            .Cells(fin, 1).Resize(UBound(aa), UBound(aa, 2)).FormulaLocal = aa
            End With
         End If

     sh.Cells(1, 1) = "demandeur"
     sh.Cells(1, 2) = "date de comande"
     sh.Cells(1, 3) = "nom notice"
     sh.Cells(1, 4) = "revision"
     sh.Cells(1, 5) = "langue source"
     sh.Cells(1, 6) = "langue cible"
     sh.Cells(1, 7) = "reference notice"
     sh.Cells(1, 8) = "?tat"
     sh.Cells(1, 9) = "d?lais"
     sh.Cells(1, 10) = "traducteur"
     sh.Cells(1, 11) = "Nombre mots nouveaux"
     sh.Cells(1, 12) = "CU mots nouveaux"
     sh.Cells(1, 13) = "Nombre de r?p?tition"
     sh.Cells(1, 14) = "CU r?petition"
     sh.Cells(1, 15) = "n? devis"
     sh.Cells(1, 16) = "CA"
     sh.Cells(1, 17) = "DeNot"
     sh.Cells(1, 18) = "Affectation"
     sh.Cells(1, 19) = "remarque"
     sh.Cells(1, 20) = "famille"
     sh.Cells(1, 21) = "Co?t mots nouveaux"
     sh.Cells(1, 22) = "Co?t r?p?tition"
     End If
     End If
     Next sh
End Sub

Cette macro à pour but de rassembler à la suite toute les feuilles de mon fichier excel les une à la suite des autres. En tout le résultat de la macro fait 18 000 lignes à peut près sur 22 colonnes. Les "end if" sont les feuilles non pris en comptes.

bonjour,

as-tu des macros événementielles dans ton classeur ?

Bonjour di-hydroxyde de soufre (si je souvient bien )

j'ai recopier l'évenement et ça a maché sans trop savoir pourquoi d'ailleur.

Merci

bonjour,

macro événementielle = macro qui s'exécute lorsqu'un événement sur excel est détecté, (per exemple, ouverture d'un classeur, changement de feuille, changement de valeur, sélection d'une cellule, ...)