creat fichier fonc N° et année

Salut et bon WE le forum
j'ai un petit soucis j'ai récuperé et adapté une macro qui a pour but de créer un fichier excel renommer en fonction de la semaine voulue.
Le petit truc ça marche pour les semaines de l'année 2005 mais comment faire pour que cela fonctionne aussi en fonction de l'année désiré.

Merci de votre aide je bloque là.

macro
Public Sub creationsemaine2()

Workbooks.Open Filename:= _
'C:\\excel travail cello\\programmation semaine technique clientele\\Sem XX 2006.xls'

Dim Jour As Date
Dim semaine As Byte
Dim lundidate As Date
semaine = InputBox('semaine ?')

Jour = DateSerial(Year(Date), 1, 1)

lundidate = CDate(IIf(Jour > 5, Jour - Weekday(Jour) + 2, Jour - Weekday(Jour) - 5) + 7 * semaine)
ActiveWorkbook.SaveCopyAs Filename:='Sem' & ' ' & semaine & ' ' & '2005' & '.xls'

Workbooks('Sem XX 2006.xls').Close
Workbooks.Open Filename:='Sem' & ' ' & semaine & ' ' & '2005' & '.xls'
Range('E2').Value = semaine
Range('G2').Value = lundidate
Range('L2').Value = lundidate + 4

End Sub