Sub NouvelleFeuille()
Dim sh As Worksheet, LaDate As Date
LaDate = DateSerial(17, 1, 31)
For Each sh In ThisWorkbook.Worksheets
On Error Resume Next 'si le nom est autre qu'une date
If DateSerial(Right(sh.Name, 2), Mid(sh.Name, 4, 2), Left(sh.Name, 2)) > LaDate Then
LaDate = DateSerial(Right(sh.Name, 2), Mid(sh.Name, 4, 2), Left(sh.Name, 2))
End If
On Error GoTo 0
Next
LaDate = LaDate + 1
MsgBox "Prochain nom de feuill=" & Format(LaDate, "dd.mm.yy") 'facultatif
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(LaDate, "dd.mm.yy")
End Sub