XL 2013 Besoin aide sur code VBA pour combiné fonction

Worksheets("Fiche_Vierge").Copy After:=Worksheets("Sommaire")

Sub Creation()
Dim J As Long
Dim Ws As Worksheet

  Application.ScreenUpdating = False
  Set Ws = ActiveSheet
  For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row '2= On commence à lire à la deuxieme ligne
    If FeuilleExiste(Ws.Range("A" & J).Value) = False Then
      Sheets.Add After:=Sheets(Sheets.Count)
      ActiveSheet.Name = Ws.Range("A" & J)
    End If
  Next J
  Ws.Select
End Sub

Function FeuilleExiste(Nom As String) As Boolean
  On Error Resume Next
  FeuilleExiste = Sheets(Nom).Name <> ""
  On Error GoTo 0
End Function

Sub ModuleCopie()
Dim Ws As Worksheet
Set Ws = ActiveSheet

Sheets("Fiche_Vierge").Copy After:=Worksheets("Sheets.Count")
ActiveSheet.Name = "Nouvelle Feuille"
Ws.Activate
End Sub