Automatisation d'un process " Run time error 1004" quand trop de données

Bonjour,

J'ai développé un outil automatisé pour un entrepôt logistique qui utilise les données de préparation de la journée.
La macro que j'ai développé tourne sans problème depuis plusieurs mois, mais actuellement une augmentation de la charge de production fait qu'il y a beaucoup plus de data à traité qu'avant.
La macro insert beaucoup de ligne dans la feuille excel avec ce code :

Code:

---

1 2 3 4 5 6 7

Worksheets("Extraction").Rows(i).Select Selection.Copy Rows(i + 1).Select Selection.Insert Shift:=xlDown Application.CutCopyMode = False Sheets("Extraction").Range("P" & i + 1).Value = CDec(Sheets("Extraction").Range("P" & i).Value - BoxA) Sheets("Extraction").Range("AA" & i).Value = BoxA

---

Quand on utilise trop de donnée la macro plante sur la ligne

Code:

---

Selection.Insert Shift:=xlDown

---

avec ce message d'erreur :

Pièce jointe 568597

Je voulais savoir si Excel à une limitation d'ajout de ligne ?
Je précise quand je stop la macro je ne peut plus insérer de ligne manuellement.

Pour le moment la solution que j'ai trouvé est de faire tourner 2 fois la macro pour simulé moins de données et ça fonctionne.
Mais j'aimerai bien trouver une solution.

Si quelqu'un à une idée :)

Merci

Ta macro un peu nettoyée :

Code:

---

1 2 3 4 5 6

With Worksheets("Extraction") .Rows(i).Copy .Rows(i + 1).Insert .Cells(i + 1, "P").Value = CDec(.Cells(i, "P").Value - BoxA) .Cells(i + 1, "AA").Value = BoxA End With

---

Généralement, sans Select les instructions fonctionnent mieux dans beaucoup de cas.

Merci Menhir

Je vais tester avec ton code voir si ça fonctionne.

Cdt

Top fonctionne parfaitement

Merci pour ton aide

Cdt