Etendre une macro à la feuille complète

Bonjour à tous,

J'ai besoin de votre aide svp!

Comment puis je étendre cette solution à toutes ma feuille Excel?

Sub Macro3()
Dim i As Integer
For i = 1 To 999999
Range("K6").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[-1]C-R[-2]C"
Range("L6").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-1]+R[-1]C-R[-2]C"
Range("L6").Select
Selection.AutoFill Destination:=Range("L6:Q6"), Type:=xlFillDefault
Range("L6:Q6").Select
Range("K6:Q6").Select
Selection.Copy
Range("K9").Select
ActiveSheet.Paste
Range("K12").Select
ActiveSheet.Paste
Next
End Sub

Mon but est de calcul pour chaque références, toutes les 3 lignes, mes stocks après production.

Sur la première ligne, j'ai les quantités à produire.

Sur la deuxième ligne, les arrivées en stock.

Et sur la troisième je souhaite mes stocks après production.

Je dois faire ce calcul pour environ 1500 références et sur 54 semaines. Les références sont en lignes et les semaines en colonnes.

Merci pour votre aide.

Bonjour

La solution que vous voulez mettre en œuvre est assurément l'une des pires qu'on puisse imaginer. Utiliser un tableau en mémoire serait autrement plus efficace. Si vous postez un fichier exemple conforme à l'original on pourra sans nul doute vous proposer une solution.

Cordialement