Krakmup was telling us:
Krakmup nous racontait que :

Try not using the selection object... it leads to more complicated and
unstable code.
Without seeing the code you use to create the table, move out of the table,
create the heading and then move back in the table, it is difficult to help.

But, why do you create an object, move out, do something unrelated to the
object, then move back in the object to do something? Why didn't you do
everything before moving out of the object?

Try this code which does not use the Selection object:

Dim MyTable As Table
Dim StartRge As Range
Dim myRow As Row

Set StartRge = Selection.Range
StartRge.Collapse wdCollapseStart

With StartRge
   .InsertAfter "Table Title"
   .Style = wdStyleHeading1
   .InsertParagraphAfter
   .Collapse wdCollapseEnd
   .Style = wdStyleNormal
   .Tables.Add StartRge, 8, 5
   Set myRow = .Tables(1).Rows(1)
   With myRow
       With .Range.Font
           .Bold = True
           .SmallCaps = True
           .Color = wdColorBlue
       End With
       .HeadingFormat = True
   End With
End With

Hi Krakmup,

ClearFormatting seems to do much the same as applying "Normal" style:
Selection.Range.Style = ActiveDocument.Styles(wdStyleNormal)

The only difference I see is that applying "Normal" (built-in command
DemoteToBodyText, with either whole paragraphs or nothing selected) doesn't
remove character styles, "Clear Formatting" does.

So you might apply wdStyleDefaultParagraphFont, too:
Selection.Font.Reset

OTOH, ClearFormatting even removes manual font formatting from the paragraph
if you haven't anything selected (if the paragraph style isn't "Normal", and
more than 50% of the text has manual formatting).

So if you want to mimic "ClearFormatting" 100%, you might have to write more
code. Most of those built-in commands to remove formatting are inordinately
complicated, trying to guess the user's desire.

Regards,
Klaus