Bonjour et
Nommer "DatesFin" la colonne correspondante de ton tableau, puis, en B24:
=SIERREUR(INDEX(Devoirs;PETITE.VALEUR(SI((Dates<=B$23)*(DatesFin>=B$23);LIGNE(Dates));LIGNES($1:1))-DébutLigneTableau;4);"")
... à recopier à droite et sur les 3 lignes suivantes
Restera à voir comment tu vas empêcher de fixer plus de 4 tâches par jour ...
En copiant les formules, tu vas aussi perdre les couleurs que tu avais définies par MFC (sauf si, après chaque recopie -vers la droite et vers le bas- tu choisis "recopier les valeurs sans la mise en forme" ... mais je ne suis pas certain que tu obtiendras le résultat souhaité ?)
Salut tatiak