Install = Sheets('Accueil_Aide').Range('D21').Text
Client = Sheets('Accueil_Aide').Range('D22').Text
ActiveWorkbook.Sheets(Array(1, 2, 3, 4, 5)).Copy
With ActiveWorkbook
.Saveas(ThisWorkbook.Path & '\\Projets\\Install & '_' & Client & '.xls', , , , , , , xlUserResolution)
.Close
End With