ActiveWorkbook.SaveAs Filename:=Chemin & Repertoire & Sheets("Fiche anomalie").Range("E1").Value & ".xlsx"
Application.DisplayFullScreen = True
ActiveWindow.SmallScroll Down:=-33
Application.AskToUpdateLinks = False
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
Range("A1:E43,A44,C44:D44").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Close savechanges:=True