Function RetourPrévu(D)
RetourPrévu = ""
DerCol = Cells(2, Cells.Columns.Count).End(xlToLeft).Column
Ligne = D.Row
ColToDay = 0
For C = 7 To DerCol
If Cells(2, C) = Date Then ColToDay = C
Next C
If ColToDay = 0 Then Exit Function
If Cells(Ligne, ColToDay).Interior.Color <> RGB(255, 255, 255) Then
' Cas où la cellule d'aujourd'hui est en couleur, on cherche la prochaine transition
For C = ColToDay To DerCol
If Cells(Ligne, C).Interior.Color <> RGB(255, 255, 255) And _...