Sub Test()
Dim SheetName As String, NewName As String
Dim Sh As Shape
SheetName = "TEMPLATE"
NewName = Format(Range("E2"), "yyyy-mm-dd")
If Not SheetExist(NewName) Then
Worksheets(SheetName).Copy After:=Sheets(Sheets.Count)
With ActiveSheet
.Name = NewName
.Unprotect
For Each Sh In .Shapes: Sh.Delete: Next Sh
End With
Else
MsgBox "Impossible de copier la feuille " & SheetName & Chr(10) & NewName & " existe déjà"
End If
Sheets("TEMPLATE").Activate
ActiveSheet.Unprotect
Range("B8:B17,D8:AB17,AD8:AD17,AF8:BD17,B20:BD23,E2:L2").Select
Range("E2:I2").Activate
Selection.ClearContents
Range("E2:I2").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.Range("E2").Value = CDate(Date + 1)