Microsoft 365 Mise à Jour dates

Function MajDateLundi(ByVal Emission As String, ByVal JoursEnCours As Date, ByVal TimeIn As Date) As Variant

Dim Continuer As Boolean
Dim NbJours As Integer

    Continuer = False

    Select Case Emission
      Case "Le Crosse Check Après Match", "Grand Genève à chaud", "Météo", "Le Journal" ' $F$1-1
           Continuer = True
           NbJours = 1

      Case "Mégaphone"  '$F$1-2
           Continuer = True
           NbJours = 2

      Case "Geneva Show - Le grand entretien", "Un jour un domaine" ' $F$1-3
           Continuer = True
           NbJours = 3

      Case "Cult."  '$F$1-4
           Continuer = True
           NbJours = 4

      Case "Le PoinG Part 01", "Le PoinG Part 02"  '$F$1-5
           Continuer = True
           NbJours = 5

      Case "Le génie des métiers", "L'agenda"  '$F$1-6
           Continuer = True
           NbJours = 6

      Case "Ca bouge à la maison", "Le Journal", "Les yeux dans les yeux", "Genève à chaud"  ' $F$1"
           Continuer = True
           NbJours = 0

      Case "Objectif terre" ' $F$1"
      Continuer = True
      NbJours = 7

      Case "PUB", "Comblage / BA", "Programme court", "Capsule #1", "Capsule #2", "Capsule #3", "Capsule #4", "Capsule #5", "Capsule #6" ' " - ""
           Continuer = False
           ValeurDeRemplacement = "-"

      Case Else
           Continuer = False
           ValeurDeRemplacement = "A remplir"

    End Select

    If Continuer = True Then
       If TimeIn * 24 < 17.49 Then
          MajDateLundi = CDate(JoursEnCours) - NbJours
       Else
          MajDateLundi = JoursEnCours
       End If
     Else
          MajDateLundi = ValeurDeRemplacement
     End If