passage a la ligne dans instruction vba

bonsoir à tous,

il y a quelques temps j'ai commencé ma premiere programation VBA, et grâce à vous j'ai pu progresser.

Mais je bute encore sur deux problèmes dans mon code.

Le premier :

mon code pour recupérer la valeur de plusieurs cellules et les concatener dans une seule:

Selection.Value = ("=ConcatCom(" & TextCom & ") & ConcatArr(" & TextArr & ")" & "& ConcatCom(" & TextCom2 & ") & ConcatArr(" & TextArr2 & ")" & "& ConcatCom(" & TextCom3 & ") & ConcatArr(" & TextArr3 & ")" & "& ConcatCom(" & TextCom4 & ") & ConcatArr(" & TextArr4 & ")" & "& ConcatCom(" & TextCom5 & ") & ConcatArr(" & TextArr5 & ")")


Résultat dans la barre de formule:
=ConcatCom([Classeur1]Feuil1!$A$6) & ConcatArr([Classeur1]Feuil1!$B$6:$B$7)& ConcatCom([Classeur1]Feuil1!$A$8) & ConcatArr([Classeur1]Feuil1!$B$8:$B$11)& ConcatCom([Classeur1]Feuil1!$A$12) & ConcatArr([Classeur1]Feuil1!$B$12:$B$15)& ConcatCom([Classeur1]Feuil1!$A$16) & ConcatArr([Classeur1]Feuil1!$B$16:$B$18)& ConcatCom([Classeur1]Feuil1!$A$19) & ConcatArr([Classeur1]Feuil1!$B$19:$B$21)

Résultat dans la cellule:
[ fgsdhj ] : 11111, 22222, [ sfhgh ] : 33333, 44444, 55555, 66666, [ llsslq ] : 77777, 88888, 99999, 111110, [ mmlsdq ] : 122221, 133332, 144443, [ qolqmms ] : 155554, 166665, 177776,

Je voudrais que le résultat dans la cellule affiche :
[ fgsdhj ] : 11111, 22222,
[ sfhgh ] : 33333, 44444, 55555, 66666,
[ llsslq ] : 77777, 88888, 99999, 111110,
[ mmlsdq ] : 122221, 133332, 144443,
[ qolqmms ] : 155554, 166665, 177776,

J'ai essayé avec sendkey "{enter}", entre les formule du module vba mais cela me donne une erreur
Quelqu'un aurait-il une piste?

Mon deuxième problème comment mettre en gras ce qu'il y a entre les [...], j'ai essayé avec font.bold dans ma formule mais rien 🙁

merci