Copier cellule dans word en gardant le format, la police, la couleur de pol

Bonjour,

J'ai ce code ci-dessous qui me permet de copier le contenu de la cellule B328 dans un nouveau document word

Cela fonctionne bien

 Range("b328").Copy
    Range("b328").Select
    Set WordApp = CreateObject("Word.Application")     '-- ouvre une session Word
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Add    '-- crée un nouveau document
     WordApp.Selection.TypeText Text:=Range("b328").value

Mais je voudrais garder le format de la cellule dans word : police et couleur de police
Dans word le texte est en noir et en rouge dans Excel

Je vous remercie de votre aide

Cordialement