Sub TEST()
'
' TEST Macro
'
'
Sheets("Bordereau_cible").Select
Range("A1:A8").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Paste
Columns("O:O").ColumnWidth = 16.36
Columns("P:P").ColumnWidth = 19.45
Columns("Q:Q").ColumnWidth = 19.82
Columns("R:R").ColumnWidth = 24.91
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "Bordereau"
Range("A1").Select
Sheets("Bordereau_cible").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
Sheets("Annexes").Select
ActiveWindow.SelectedSheets.Visible = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Protect Structure:=True, Windows:=False
ChDir "C:\Desktop\Téléchargement"
ActiveWorkbook.SaveAs Filename:= _
"C:\Desktop\Téléchargement\TEST2 Bordereau des Responsables d'UO - EHP001.xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Save
End Sub