Sub Macro2()
Application.DisplayAlerts = False
Sheets("contrat rédigé").Delete
With Sheets("contrat rédigé (2)")
.Move Before:=Sheets(3)
.Name = "contrat rédigé"
End With
Sheets("BASE CONTRAT").Select
ActiveWindow.SmallScroll Down:=-72
Application.DisplayAlerts = True
End Sub