If Sheets("Table").[n2] < Date + 15 And Sheets("Table").[n2] > Date Then
modepasse
End If
If Sheets("Table").Range("n2") < Date Then
modepasse
If Sheets("Table").Range("n2") < Date Then
RétabliMenu
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Onglets As Worksheet
For Each Onglets In Worksheets
Onglets.Visible = True
Next Onglets
Sheets("accueil").Select
Dim X As Long
For X = 1 To ThisWorkbook.Sheets.Count
If Sheets(X).Name <> "Feuil1" Then Sheets(X).Select Replace:=False
Next X
Supprimer
Application.DisplayAlerts = False
Dim Sh As Object, s As Shape, fn$
For Each Sh In Me.Sheets
If Sh.ProtectContents Then Sh.Protect "", UserInterfaceOnly:=True
For Each s In Sh.Shapes
If s.OnAction <> "" Then s.Delete
Next s, Sh
fn = Me.FullName
Me.SaveAs Left(fn, InStrRev(fn, ".") - 1), 51
Kill fn
If Workbooks.Count = 1 Then
Application.Quit
Else: ThisWorkbook.Close
End If
Exit Sub
Me.Sheets("Recp").Activate
End If
End If