mise en forme

Bonjour à tous
j'ai tenté ma première macro de mise en forme mais je n'arrive pas à
transformer le texte dans la 2éme partie
Cette macro est sensé mettre le titre en caractère gras, souligné et en
écriture comic sans MS taille 11 et centré
puis le reste du texte en caractère Batang taille 11.
malheureusement si le texte comporte des sauts de lignes c'est tous le
texte qui se transforme.
avec mes remerciements

Sub Mise_en_page_cuisine()
'
' Mise_en_page_cuisine Macro
'
Selection.HomeKey Unit:=wdStory
Selection.Extend
Selection.EndKey Unit:=wdStory
Selection.ClearFormatting
Selection.HomeKey Unit:=wdStory
Selection.Extend
Selection.MoveRight Unit:=wdWord, Count:=1
Selection.EndKey Unit:=wdStory
Selection.HomeKey Unit:=wdStory
Selection.Extend
Selection.MoveRight Unit:=wdWord, Count:=2
Selection.HomeKey Unit:=wdLine
Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.EscapeKey
Selection.HomeKey Unit:=wdLine
Selection.Extend
Selection.MoveRight Unit:=wdWord, Count:=6
Selection.ClearFormatting
Selection.Style = ActiveDocument.Styles("Entête cuisine")
Selection.EscapeKey
Selection.MoveDown Unit:=wdLine, Count:=1
CommandBars("Stop Recording").Visible = False
Selection.EscapeKey
ShowVisualBasicEditor = False
Selection.EscapeKey
Selection.HomeKey Unit:=wdStory
'
' mise en forme texte en style batang
Selection.HomeKey Unit:=wdStory
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.Extend
Selection.EndKey Unit:=wdStory
Selection.HomeKey Unit:=wdStory

End Sub


--
Ctitout B-{}

°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°
il ne faut pas mettre du vinaigre dans ses écrits,
il faut y mettre du sel. (Montesquieu)
°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°