Option Explicit
Sub dupliquer()
Dim numDate As String
Dim Ws As Worksheet
Dim V As Boolean
numDate = InputBox("numdate", "feuille", "Toto")
If numDate <> "" Then
On Error Resume Next
Set Ws = Sheets(numDate)
On Error GoTo 0
If Ws Is Nothing Then
With Sheets("modèle")
V = .Visible
.Visible = True
.Copy after:=Sheets(Sheets.Count)
.Visible = V
End With
With ActiveSheet
.Name = numDate
.Range("zone").ClearContents
.Range("ref").Value = numDate
End With
Else
Ws.Activate
Set Ws = Nothing
End If
End If
End Sub