Private Sub CommandButton1_Click()
Dim F As Worksheet
Set F = Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Copy After:=F
ActiveSheet.Name = Format(CDate(F.Name) + 1, "dd-mm-yyyy")
End Sub
Private Sub CommandButton1_Click()
Dim F As Worksheet
Set F = Sheets(ActiveWorkbook.Sheets.Count)
Sheets("modele").Copy After:=F
ActiveSheet.Name = Format(CDate(F.Name) + 1, "dd-mm-yyyy")
End Sub