Avec une fonction personnalisée.
Le code en détails :
Function planning_chich(dJour As Date, rRaisons As Range, rPeriode As Range) As String
Dim tRaisons(), tPeriodes()
Dim i As Byte, j As Byte
'Enregistre les raisons dans un tableau virtuel.
tRaisons = rRaisons.Value
'Enregistre la période...