Application.DisplayAlerts = False
'l'instruction déclenchant l'alerte
Application.DisplayAlerts = True
Sheets("contrat rédigé").Select
ActiveWindow.SelectedSheets.Delete
Sheets("contrat rédigé (2)").Select
Sheets("contrat rédigé (2)").Move Before:=Sheets(3)
Sheets("contrat rédigé (2)").Select
Sheets("contrat rédigé (2)").Name = "contrat rédigé"
Sheets("BASE CONTRAT").Select
ActiveWindow.SmallScroll Down:=-72
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