Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
If Intersect(Target, [B1]) Is Nothing Then
Else
On Error Resume Next
Set sh = Worksheets(Format(Me.[B1], "dd-mm-yyyy"))
On Error GoTo 0
If Not sh Is Nothing Then
MsgBox "La feuille existe déjà !!!"
Else
ActiveWorkbook.Sheets(1).Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(Me.[B1], "dd-mm-yyyy")
End If
End If
End Sub