Dupliquer feuille

Sub DupliquerFeuille()
Application.ScreenUpdating = False
feuille = ActiveSheet.Index
Sheets.Add After:=Sheets(feuille)
Sheets(feuille).Cells.Copy
Sheets(feuille + 1).Select
texte = "Feuille copiée à " & Format(Time, "hh.mm.ss")
ActiveSheet.Name = texte
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Option Explicit
Sub Onglet_actif_dupliquer_nommer()
    Dim nom As String, mem As Worksheet
    Set mem = ActiveSheet
    nom = InputBox("Nommer l'onglet...")
    ActiveSheet.Copy after:=Sheets(1)
    On Error GoTo fin
    ActiveSheet.Name = nom
    With ActiveSheet: .Tab.Color = 6684927: End With
    Exit Sub
fin:
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    MsgBox "Veuillez saisir un autre nom !"
    Application.DisplayAlerts = True
    mem.Activate
End Sub

Option Explicit
Sub Quelle_couleur()
MsgBox Selection.Interior.Color
End Sub

Sub Dupliquer()
    Dim Nom As String, W As Worksheet
1   Nom = InputBox("Dupliquer l'onglet Original")
    If Nom = "" Then Exit Sub
    For Each W In Sheets
      If W.Name = Nom Then
        MsgBox "changer d'intitulé !", 16, "Nom déjà utilisé..."
        GoTo 1
      End If
    Next
    With Feuil4 'caché et dont le nom est Original
      .Visible = 1
      .Copy after:=Sheets(1)
      .Visible = 2
      ActiveSheet.Name = Nom
      ActiveSheet.Visible = 1
    End With
End Sub

Sub duplique()

Dim F1 As Worksheet
Set F1 = Worksheets("Feuil1")

F1.Copy After:=F1

End Sub