Microsoft 365 Déterminer la date d'un prochain jour

Sub ProchainJour()
  Dim lRow As Long, sRow As Long
  Dim sDay As String, iDay As Integer, nDay As Integer
  Dim TabDay() As String
  ' Tabelau des jours
  TabDay = Split("Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday", ",")
  ' Dernière ligne du tableau
  lRow = Range("A" & Rows.Count).End(xlUp).Row
  ' Parcourir chauqe ligne
  For sRow = 3 To lRow
    ' Si la celluel de la colonne D n'est pas vide
    If Range("D" & sRow).Value <> "" Then
      ' Récupérer le joru en anglais
      sDay = Range("D" & sRow).Value
      ' Trouver la position du jour dans la liste
      For iDay = 0 To 6
        If UCase(TabDay(iDay)) = UCase(sDay) Then Exit For
      Next iDay
    End If
    ' Calculer le prochain jour
    nDay = (7 - Weekday(Date)) + 1 + iDay + 1
    ' Inscrire la date
    Range("J" & sRow).Value = Date + nDay
  Next sRow
End Sub

=SI(JOURSEM(AUJOURDHUI();2)>=RECHERCHEV(RECHERCHE("zzzzz";$D$3:$D3);TableJour;2;FAUX);AUJOURDHUI()+(7-(JOURSEM(AUJOURDHUI();2)-RECHERCHEV(RECHERCHE("zzzzz";$D$3:$D3);TableJour;2;FAUX)));AUJOURDHUI()-(RECHERCHEV(RECHERCHE("zzzzz";$D$3:$D3);TableJour;2;FAUX)-JOURSEM(AUJOURDHUI();2)))