Workbooks("Modèle veilles.xlsm").Activate
Sheets(Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", _
"Septembre", "Octobre", "Novembre", "Décembre")).Select
Sheets(Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", _
"Septembre", "Octobre", "Novembre", "Décembre")).Copy Before:=Workbooks( _
"Veilles" & annee & ".xls").Sheets(1)