Couleur de ma cellule ne suit pas après exécution de ma macro

Bonjour,

J'ai un problème avec une macro que je n'arrive pas à résoudre. Ma macro ci-dessous :
Workbooks.Open Filename:="Z:\5- Equipe_ECS\Gestion_Temps\Bilan_affaires.xls", local:=True
Application.DisplayAlerts = False
Range("A5:G228").Select
Selection.Copy
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
Application.DisplayAlerts = True
Windows("Service_Direction_Septembre.xls").Activate
Sheets("Bruno").Activate
Range("A5").Select
ActiveSheet.Paste
Sheets("Daniel").Activate
Range("A5").Select
ActiveSheet.Paste

s'exécute très bien et réalise exactement ce que je souhaite. Le seul hic, c'est qu'elle ne recopie pas le format exact de ma cellule (format de police, couleur de cellule....)
Il faut que je rajoute certainement quelque chose dans ma macro mais je ne sais pas quelle formule ??
Quelqu'un peut-il me renseigner ?
Merci d'avance,
Claire