Private Sub CommandButton1_Click() 'Archiver
Dim dat$, i&
dat = "1/1/" & [I2]
If Not IsDate(dat) Then Exit Sub
dat = CStr(Year(dat))
[E2,G2] = ""
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Sheets(dat).Delete
Sheets.Add After:=Me
With ActiveSheet
Cells.Copy .[A1]
.[A1].Copy .[A1] 'vide la mémoire
.[I2].Validation.Delete 'supprime la liste de validation
.Name = dat
End With
For i = 2030 To 2016 Step -1 'classe les feuilles
Sheets(CStr(i)).Move After:=Me
Next
Application.Goto [I2]
Application.ScreenUpdating = True
'---RAZ---
If MsgBox("Voulez-vous vider la feuille 'Calendrier' ?", 52) = 7 Then Exit Sub
[I2,C13:AG198] = ""
For i = 13 To 189 Step 16
Cells(i, 3).Resize(10, 31).Interior.ColorIndex = xlNone
Cells(i, 3).Resize(10, 31).Font.ColorIndex = xlAutomatic
Next
End Sub