Bonjour le forum
Est il possible de reduire cette formule
merci à vous
Case 20
Range("A251").Select
Selection.Copy
Range("AS2").Select
ActiveSheet.Paste
Range("C254").Select
Application.CutCopyMode = False
Selection.Copy
Range("AT2").Select
ActiveSheet.Paste
Range("BB2").Select
ActiveSheet.Paste
Range("B251").Select
Application.CutCopyMode = False
Selection.Copy
Range("AW2").Select
ActiveSheet.Paste
Range("B252").Select
Application.CutCopyMode = False
Selection.Copy
Range("AX2").Select
ActiveSheet.Paste
Range("O124").Select
Application.CutCopyMode = False
Selection.Copy
Range("AY2").Select
ActiveSheet.Paste
Range("G251").Select
Application.CutCopyMode = False
Selection.Copy
Range("AZ2").Select
ActiveSheet.Paste
Range("B253").Select
Application.CutCopyMode = False
Selection.Copy
Range("BA2").Select
ActiveSheet.Paste
😕
Est il possible de reduire cette formule
merci à vous
Case 20
Range("A251").Select
Selection.Copy
Range("AS2").Select
ActiveSheet.Paste
Range("C254").Select
Application.CutCopyMode = False
Selection.Copy
Range("AT2").Select
ActiveSheet.Paste
Range("BB2").Select
ActiveSheet.Paste
Range("B251").Select
Application.CutCopyMode = False
Selection.Copy
Range("AW2").Select
ActiveSheet.Paste
Range("B252").Select
Application.CutCopyMode = False
Selection.Copy
Range("AX2").Select
ActiveSheet.Paste
Range("O124").Select
Application.CutCopyMode = False
Selection.Copy
Range("AY2").Select
ActiveSheet.Paste
Range("G251").Select
Application.CutCopyMode = False
Selection.Copy
Range("AZ2").Select
ActiveSheet.Paste
Range("B253").Select
Application.CutCopyMode = False
Selection.Copy
Range("BA2").Select
ActiveSheet.Paste
😕