Sub SavegardeFeuil()
Sheets('Feuil1').Copy
ChDir 'E:\\Thermique\\Données Sites\\01'
ActiveWorkbook.SaveAs Filename:= _
'E:\\Thermique\\Données Sites\\01\\Classeur1.xls' _
, FileFormat:=xlNormal, Password:='', WriteResPassword:='', _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub