Sub DupliquerOnglet()
Dim Onglet As Worksheet: On Error Resume Next
Set Onglet = ActiveWorkbook.Worksheets("work"): Onglet.Copy , Onglet
With ActiveSheet
.Name = Application.InputBox("Entrez un nom pour la copie de la feuille", "Copie de la feuille", "copie(Work)")
With .[A20].Resize(.UsedRange.Rows.Count, .UsedRange.Columns.Count)
.Value = .Value
End With
End With
End Sub