Comment mettre plusieurs valeurs dans même cellule ?

Bonjour,
J'aimerai récupérer plusieurs informations dans une même cellule.
J'ai entre 0 et 6 cellules de couleur verte sur une feuille appelée "chapitre".
Je voudrai créer une boucle "If" qui me permet d'affecter à une cellule (A4) les noms indiqués dans les cellules vertes.
J'arrive à le faire pour une valeur mais je ne sais comment mettre une seconde valeur.
Voilà un morceau du code :

If Sheets("Chapitre 6").Range("K" & l).Interior.ColorIndex = 4 Then
Sheets("Impression").Range("A" & k + 1) = Sheets("Chapitre 6").Range("K7").Value
Else
If Sheets("Chapitre 6").Range("K" & l).Interior.ColorIndex = 45 Then
Sheets("Impression").Range("C" & k + 1) = Sheets("Chapitre 6").Range("K7").Value
Else
If Sheets("Chapitre 6").Range("K" & l).Interior.ColorIndex = 3 Then
Sheets("Impression").Range("D" & k + 1) = Sheets("Chapitre 6").Range("K7").Value
Else
If Sheets("Chapitre 6").Range("K" & l).Interior.ColorIndex = 6 Then
Sheets("Impression").Range("B" & k + 1) = Sheets("Chapitre 6").Range("K7").Value
End If
End If
End If
End If

Le problème, c'est que je dois faire la même chose pour les cellules Ll, Ml, Nl, Ol et Pl et mettre les valeurs toujours dans Ak+1(ou Bk+1, Ck+1 et Dk+1, selon la couleur donnée à la cellule)
J'aimerai donc faire la même chose pour lui dire par exemple :
Si la cellule K8 est verte, mettre Q.2 dans A4 et si L8 est verte, ajouter Q.3 (ce ne sont pas des valeurs que je dois mettre dans les cellules Ak, Bk, Ck, Dk mais du texte, si possible séparé par un espace, une virgule ou autre.

Voilà, je vous ai exposé mon problème, qui est un peu compliqué à comprendre, j'en suis consciente.
Merci d'avance de votre aide.