Bonjour à tous, pourriez-vous m'aider à simplifier ce code ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
  Sheets("Férié").Select
  Range("A4:B15").Select
  Selection.Copy
  Sheets("Recap").Select
  Range("Y7").Select
  ActiveSheet.Paste Link:=True
  Range("Y7:Z60").Select
  Selection.Locked = False
  Selection.FormulaHidden = False
  Range("A44").Select