Dim MyWeek
MyWeek = Array("Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi", "Dimanche")
Dim Numjour As Integer
Dim compteur As Integer
compteur = ActiveSheet.Range("f2") + 1
' numero dulendemain
Numjour = WeekDay(Date + 1)
' si lendemain samedi ou dimanche lendemain lundi
If Numjour = 7 Or Numjour = 1 Then Numjour = 2
ActiveSheet.Copy after:=Sheets(Sheets.Count)
' renomme la nouvelle feuille
Sheets(Sheets.Count).Name = "journée du " & MyWeek(Numjour - 2) & " " & compteur
'on efface les cellules
With Sheets(Sheets.Count)
.Range("D7:D8,D11:D12,D15:D18,D21:D23,D28").ClearContents
.Range("F7:F9,F11:F13,F15:F18,F21:F24").ClearContents
.Range("B30:F38,A31:A38").ClearContents
'on met le compteur a jour
.Range("f2") = compteur
'on efface le bouton de la feuille precedente
.Shapes("Button 1").Delete
End With
End Sub