Sub CopieTemplate()
Dim intCompteur As Integer, strNomFeuille As String, strFormule1 As String
Sheets(1).Select
Sheets(1).Name = 'S01'
Sheets('S01').Select
'N° de Week (ici Week 1)
ActiveSheet.Range('B1') = 1
'Date de la semaine Suivante
ActiveSheet.Range('B2') = '02/01/2006'
ActiveSheet.Copy After:=Sheets(1)
For intCompteur = 2 To 52
If intCompteur < 10 Then
strNomFeuille = 'S0' & intCompteur
Else
strNomFeuille = 'S' & intCompteur
End If
Sheets(intCompteur).Name = strNomFeuille
Sheets(strNomFeuille).Select
'Date de la semaine Suivante
strFormule1 = '=' & Sheets(intCompteur - 1).Name & '!$B$2 + 7'
ActiveSheet.Range('B1') = intCompteur
ActiveSheet.Range('B2') = strFormule1
ActiveSheet.Copy After:=Sheets(intCompteur)
Next
End Sub