Hello all,
Voic un bout de code que j'avais qui me recopiait 52 fois la feuil1 en changeant son nom.
Je m'en servais pour créer une feuille par semaine de l'année.
Cette macro gère les semaines flottantes (tu peux commencer à 36, le nom revient à semaine 1 apres la 52eme).
++
Creepy
Private Sub CommandButton1_Click()
Dim I As Integer
I = Range("a1").Value + 1
Dim T As Integer
For T = 1 To 52
Sheets("Feuil1").Select
Sheets("Feuil1").Copy After:=Sheets(T)
Sheets("Feuil1 (2)").Select
Sheets("Feuil1 (2)").Name = "SEM " & I
Sheets("SEM " & I).Range("A1").Value = "Semaine " & I
I = I + 1
If I = 53 Then
I = 1
End If
Next
End Sub