Éviter les Select et Selection dans les macros.
Pour éviter des répétitions d'expressions, affectez les plutôt par des Set à des variables déclarées As Workbook, Worksheet, Range etc.
Et évitez autant que possible de consulter une collection sans préciser son propriétaire.
Jamais de Range sans expression WorkSheet. devant, jamais de Worksheets(x) sans préciser de quel Workbook. devant.