Problème copie d'objets via macro

Sheets("BILAN").copy after := Sheets(Sheets.count)

Private Sub CommandButton2_Click()
Dim I As Integer
nomfeuille = ComboBox1
TestFeuilleExiste
Application.ScreenUpdating = False
Sheets("LISTES").Visible = True
Sheets("BILAN").Visible = True
Sheets("BILAN").Copy After:=Sheets(Sheets.Count) '**** Copie de la feuille elle même et coller après la dernière
Sheets(Sheets.Count).Name = nomfeuille '**** renommage de la feuille
Sheets(nomfeuille).Select
ActiveWindow.zoom = 113
Range("A1").Select

Public nomfeuille As String
Sub TestFeuilleExiste()
Application.DisplayAlerts = False
If Not FeuilleExiste(nomfeuille) Is Nothing Then Sheets(nomfeuille).Delete
'ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count) '**** La copie est faite dans NOUVELIMPORT
'ActiveSheet.Name = nomfeuille '**** Le renomage est fait dans NOUVELIMPORT
'fin:
'Set feuille = Worksheets("Tata")
'feuille.Activate
Application.DisplayAlerts = True
End Sub
Function FeuilleExiste(f As String) As Worksheet
On Error Resume Next
Set FeuilleExiste = Worksheets(f)
End Function

Private Sub CommandButton2_Click()
Dim i%, nomfeuille$, rng As Range
If ComboBox1.ListIndex = -1 Then Exit Sub
nomfeuille = ComboBox1
Application.ScreenUpdating = False
Sheets("LISTES").Visible = True
Sheets("BILAN").Visible = True

On Error Resume Next
Application.DisplayAlerts = False
Sheets(nomfeuille).Delete
Application.DisplayAlerts = True
On Error GoTo 0

Sheets("BILAN").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = nomfeuille

With Sheets("ACCUEIL")
    .Activate
    .Columns(1).Cells.Clear
    For i = 7 To Sheets.Count
        .Range("A" & i - 6).Hyperlinks.Add Anchor:=.Range("A" & i - 6), Address:="", _
            SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name
    Next
    Set rng = .Range("A1:A" & .Range("A65000").End(xlUp).Row)
    If rng.Count > 1 Then
        rng.Sort Key1:=rng.Cells(1), Order1:=xlAscending, Header:=xlGuess
    End If
End With
With Sheets("LISTES")
    .Range("F2:F1000").Clear
    .Range("F2:F" & rng.Count + 1) = rng.Value
End With

Sheets("BILAN").Visible = False
Sheets("LISTES").Visible = False
Application.ScreenUpdating = True
End Sub