For k = 3 To 13 Step 2
For l = 3 To 7
DernJour = DateSerial(Feuil1.[L2], Month(1 & "/" & ActiveSheet.Name) + 1, 1) - 1
If k = 13 And l < 5 Then Cellule_Actuelle = Day(ActiveSheet.Cells(k, l))
For a = 2 To 14
If ActiveSheet.Cells(k, l) = Feuil1.Cells(a, 16) And ActiveSheet.Cells(k, l) < DernJour Then
ActiveSheet.Cells(k + 1, l).Interior.Color = 9277427
l = l + 1: Exit For
If l = 8 Then l = 3
End If
Next