Sub Mois_Suivant()
Dim w As Worksheet, dat As Variant, datmax As Date, f As Worksheet
For Each w In Worksheets
dat = "1/" & w.Name
If IsDate(dat) Then
dat = CDate(dat)
If dat > datmax Then datmax = dat: Set f = w
End If
Next
If Month(datmax) = 12 Then MsgBox "Le mois de décembre existe déjà...": Exit Sub
f.Copy After:=f 'copie la feuille du dernier mois
With ActiveSheet
.[G1] = DateSerial([Année], Month(datmax) + 1, 1)
.Name = Application.Proper(Format(.[G1], "mmmm"))
.Range("D8:N" & .Rows.Count).ClearContents 'RAZ
On Error Resume Next
ThisWorkbook.Names(.Name & "!Année").Delete 'si le nom est créé dans la feuille
ThisWorkbook.Names(.Name & "!Fériés").Delete 'si le nom est créé dans la feuille
End With
End Sub