Bonjour je souhaite simplifier ce code afin de pouvoir réutiliser une macro sur différentes pages de mon classeur sans avoir à creer la même macro pour chaque page. j'ai besoin de réutiliser cette meme macro sur différentes zones de stockage. Merci à l'avance
code actuel :
Range("A4").Select
Selection.Copy
Sheets("GESTION STOCK").Select
Range("A5").Select
ActiveSheet.Paste
Sheets("Armoires de stockage-A").Select
Range("C4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("GESTION STOCK").Select
Range("E7, K5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Armoires de stockage-A").Select
Range("D4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("GESTION STOCK").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Armoires de stockage-A").Select
Range("E4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("GESTION STOCK").Select
Range("D5").Select
ActiveSheet.Paste
Sheets("Armoires de stockage-A").Select
Range("F4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("GESTION STOCK").Select
Range("C5").Select
ActiveSheet.Paste
Sheets("Armoires de stockage-A").Select
Range("G4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("GESTION STOCK").Select
Range("C7").Select
ActiveSheet.Paste
Sheets("Armoires de stockage-A").Select
Range("H4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("GESTION STOCK").Select
Range("E5").Select
ActiveSheet.Paste
Sheets("Armoires de stockage-A").Select
Range("I4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("GESTION STOCK").Select
Range("F5").Select
ActiveSheet.Paste
Sheets("Armoires de stockage-A").Select
Range("J4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("GESTION STOCK").Select
Range("G5").Select
ActiveSheet.Paste
Sheets("Armoires de stockage-A").Select
Range("K4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("GESTION STOCK").Select
Range("H5").Select
ActiveSheet.Paste
Sheets("Armoires de stockage-A").Select
Range("L4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("GESTION STOCK").Select
Range("I5").Select
ActiveSheet.Paste
Sheets("Armoires de stockage-A").Select
Range("O1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("GESTION STOCK").Select
Range("A7:B7").Select
ActiveSheet.Paste
Sheets("Armoires de stockage-A").Select
Rows("4:4").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Sheets("GESTION STOCK").Select
Range("A5").Select
code actuel :
Range("A4").Select
Selection.Copy
Sheets("GESTION STOCK").Select
Range("A5").Select
ActiveSheet.Paste
Sheets("Armoires de stockage-A").Select
Range("C4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("GESTION STOCK").Select
Range("E7, K5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Armoires de stockage-A").Select
Range("D4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("GESTION STOCK").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Armoires de stockage-A").Select
Range("E4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("GESTION STOCK").Select
Range("D5").Select
ActiveSheet.Paste
Sheets("Armoires de stockage-A").Select
Range("F4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("GESTION STOCK").Select
Range("C5").Select
ActiveSheet.Paste
Sheets("Armoires de stockage-A").Select
Range("G4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("GESTION STOCK").Select
Range("C7").Select
ActiveSheet.Paste
Sheets("Armoires de stockage-A").Select
Range("H4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("GESTION STOCK").Select
Range("E5").Select
ActiveSheet.Paste
Sheets("Armoires de stockage-A").Select
Range("I4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("GESTION STOCK").Select
Range("F5").Select
ActiveSheet.Paste
Sheets("Armoires de stockage-A").Select
Range("J4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("GESTION STOCK").Select
Range("G5").Select
ActiveSheet.Paste
Sheets("Armoires de stockage-A").Select
Range("K4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("GESTION STOCK").Select
Range("H5").Select
ActiveSheet.Paste
Sheets("Armoires de stockage-A").Select
Range("L4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("GESTION STOCK").Select
Range("I5").Select
ActiveSheet.Paste
Sheets("Armoires de stockage-A").Select
Range("O1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("GESTION STOCK").Select
Range("A7:B7").Select
ActiveSheet.Paste
Sheets("Armoires de stockage-A").Select
Rows("4:4").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Sheets("GESTION STOCK").Select
Range("A5").Select