Dupliquer un Onglet modèle en focntion d'une liste

Bonjour,

Dans un classeur Excel, je souhaite dupliquer un onglet modèle "MAQUETTE" et le renommer en fonction d'une liste de date situé dans un onglet "Sommaire", les 31 jours, donc 31 Onglets, enfin suivant les mois.
Et je souhaite également qu'en cellule B1 de chaque Onglet créé, la date issue de la liste s'affiche.

Je bloque sur le format date quand je souhaite dupliquer l'onglet modèle et le renommer en fonction de la liste de date.
Si je met du texte ça va mais je souhaite renommer les onglets comme ceci,

"mercredi 25 avril" et bien sur le format "jjjj jj mmmm" bloque la macro



Voici mon code

Option Explicit

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

  Application.ScreenUpdating = False
  Set Ws = ActiveSheet
  For J = 1 To Ws.Range("A" & Rows.Count).End(xlUp).Row
    If Not FeuilleExiste(Ws.Range("A" & J).Value) Then
      Sheets("MAQUETTE").Copy after:=Sheets(Sheets.Count)
      ActiveSheet.Name = Ws.Range("A" & J)
      Range("B1") = ActiveSheet.Name ' Met le nom de la feuille dans la cellule B1
    End If
  Next J
  Ws.Select
End Sub

'Si l'onglet  existe déjà, il n'est pas créé
Function FeuilleExiste(Nom As String) As Boolean
  On Error Resume Next
  FeuilleExiste = Sheets(Nom).Name <> ""
  On Error GoTo 0
End Function

Merci