Créer des onglets avec un modèle pour une plage de date

Option Explicit
Sub copie_matrice()

Dim i As Integer, z As Integer
Dim x As Date, y As Date
Dim année As String

année = Val(InputBox("Quelle année ?"))
If année = 0 Then Exit Sub
x = DateSerial(année, 1, 1) - 1
y = DateSerial(année, 1, 3)
z = y - x
For i = 1 To z
    Sheets("matrice").Copy After:=Sheets(i)
    ActiveSheet.Name = Format(x + i, "dd-mmm-yyyy")
    ActiveSheet.Range("C3") = Format(x + i, "dd-mmm-yyyy")
Next i

End Sub

Option Explicit
Sub copie_matrice()

Const c_shdate As String = "PERIODE DE PAIE"
Const c_shmatr As String = "MATRICE"
Const c_premlig As Long = 3

Dim nomdate As String
Dim nomdebsem As String, dcur As Date
Dim cellcur As Range
Dim nsem As Integer

If ActiveSheet.Name = c_shdate Then
    Set cellcur = Worksheets(c_shdate).Cells(c_premlig, ActiveCell.Column)
    nomdebsem = ""
    nsem = 1
    Do While IsDate(cellcur)
       dcur = cellcur
        nomdate = Replace(cellcur, "/", "-")
       If nomdebsem = "" Then
         nomdebsem = nomdate
        End If
       Sheets(c_shmatr).Copy After:=Sheets(Sheets.Count)
       ActiveSheet.Name = nomdate
       If Weekday(dcur) = vbSunday Then
            Call recapsemaine(nsem, nomdebsem, nomdate)
            nsem = nsem + 1
            nomdebsem = ""
        End If
       Set cellcur = cellcur.Offset(1, 0)
    Loop
    If nomdebsem <> "" Then
        Call recapsemaine(nsem, nomdebsem, nomdate)
    End If
End If
End Sub

Sub recapsemaine(numsem As Integer, debut As String, fin As String)
 Const c_form As String = "DC:FC"
 Debug.Print numsem, debut, fin
 Dim wssem As Worksheet
 Dim cell As Range
 
 Set wssem = Worksheets("SEMAINE" & numsem)
 wssem.[A1] = "RECAP SEMAINE DU " & debut & " AU " & fin
 For Each cell In wssem.UsedRange
    If cell.HasFormula Then
        If InStr(cell.Formula, c_form) Then
            cell.Formula = Replace(cell.Formula, c_form, "'" & debut & ":" & fin & "'")
        End If
    End If
 Next cell
End Sub