Sub Duplicata()
Dim dat$
Sheets("BD").Copy After:=Sheets(Sheets.Count)
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
[A1].Select
dat = Format([B4], "mmmm yyyy")
On Error GoTo 1
ActiveSheet.Name = dat
Exit Sub
1:
Application.DisplayAlerts = 0
If MsgBox("Cet onglet existe déjà, voulez-vous l'écraser ?", vbYesNo, "Ecrasement") = vbYes Then
Sheets(dat).Delete
ActiveSheet.Name = dat
Else
ActiveSheet.Delete
End If
End Sub