Planning hedomadaire

Bonjour,

J'aimerais créer un fichier automatiser, en me basant sur un emploi du temps fait à la main.

Dans le fichier excel joint, sauriez-vous modifier la formule dans le thisworkbook, pour que le code s'applique à plusieurs cellules, d'une même feuille?

En l'état actuel

, le code inscrit pour chaque nouvelle feuille, la période hebdomadaire (du lundi au dimanche), suivant celle de la feuille précédente.

Merci pour votre aide.

Marco

Option Explicit

Dim F, sem
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  On Error GoTo fin
  F = Sh.Name
  LundiSem (F)
  Range("A1") = "Du " & Format(sem, "dd mmmm yyyy") & " au " & Format(sem + 6, "dd mmmm yyyy")
fin:
End Sub
Function LundiSem(SEMAINE As Integer, Optional annee As Integer) As Date
  If annee = 0 Then annee = Year(Date)
  LundiSem = 7 * F + DateSerial(annee, 1, 3) - _
  Weekday(DateSerial(annee, 1, 3)) - 5
  sem = LundiSem
End Function