Code VBA Insertion titre

Bonjour,

Voilà la situation je transfère des tcd de excel vers word,
j'ai trouvé des codes à droite et à gauche et ça fonctionne !

Par contre je souhaite ajouter un titre avant chaque tableau dans word
et là je bloque

Est ce qu'une âme charitable pourrait m'aider ?

voici un extrait de mon code ( je ne me suis pas encore exercé sur les boucles ):

merci

CHARLYJACK

Public Sub CopieDansWord()
Dim appWord As New Word.Application
Dim docWord As New Word.Document
Dim rng As Range

' Lance Word
Set appWord = New Word.Application
With appWord
.Visible = True
' Ajoute un nouveau document
Set docWord = .Documents.Add
.Activate
End With

With appWord.Selection
.PageSetup.Orientation = wdOrientLandscape
.PageSetup.LeftMargin = CentimetersToPoints(0.5)
.PageSetup.RightMargin = CentimetersToPoints(0.5)
.PageSetup.TopMargin = CentimetersToPoints(0.5)
.PageSetup.BottomMargin = CentimetersToPoints(0.5)

' Ajoute une ligne de titre et la met en forme
.TypeText Text:="Volumétrie Oberthur Perso 020"

.HomeKey Unit:=wdLine
.EndKey Unit:=wdLine, Extend:=wdExtend
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Font.Size = 18
With .Font
.Name = "Verdana"
.Size = 18
.Bold = True
.Italic = False
.SmallCaps = True

End With



' Copie le tableau Excel 018 dans le presse papier
Sheets("Ober Perso 020").Range("OBE1").CurrentRegion.Copy

' Colle le tableau dans Word avec liaison
.EndKey Unit:=wdLine
.TypeParagraph
.TypeParagraph
.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, _
Placement:=wdInLine, DisplayAsIcon:=False

' Copie le tableau Excel 020 dans le presse papier
Sheets("Ober Perso 020").Range("OBE2").CurrentRegion.Copy

' Colle le tableau dans Word avec liaison
.EndKey Unit:=wdLine
.TypeParagraph
.TypeParagraph
.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, _
Placement:=wdInLine, DisplayAsIcon:=False

With docWord
' Enregistrement du document Word dans le même dossier
' que le classeur Excel
.SaveAs ThisWorkbook.Path & "\Resultats_2010.doc", Allowsubstitutions:=True
End With
' Réinitialise l'objet
Set appWord = Nothing
End With

End Sub