Mettre sous forme de puces

[sgarnung]

Bonsoir à tous
J'ai créé une macro qui envoie des données EXCEL vers un document Word (grille.docx). Les résultats sont compilés les uns après les autres. Comment faire pour qu'ils soient mis sous forme de puces.
Voici les deux fichiers pour faire les test si je ne suis pas assez clair (probablement) et une capture d'écran de ce que je souhaite faire.
Merci

 

[gilbert_RGI]

Re : Mettre sous forme de puces

Bonjour
il suffit de concatener l'objet "puce" avec les données
et vbLF pour passer a la ligne

Sub EnvoyerDonneesExcelVersWord()
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
    Set WordApp = CreateObject("word.application")    'ouvre session word
    Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\grille.docx", ReadOnly:=False)    'ouvre document Word
    WordApp.Visible = True
    WordDoc.Bookmarks("capacites").Range.Text = Cells(2, 1)
    puce = Cells(1, 4)
    WordDoc.Bookmarks("connaissances").Range.Text = puce & Cells(2, 2) & vbLf & puce & Cells(3, 2) & vbLf & puce & Cells(4, 2) & vbLf & puce & Cells(5, 2)
End Sub