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