Bonjour,
Je suis embêté car je ne sais pas comment gérer les interlignes dans une liste de puces voici mon code j'espère que vous pourrez m'aider

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Set plage = Range("A2:G2")
For Each Cell In plage
    If Not IsEmpty(Cell) Then n = n + 1
Next Cell
'MsgBox n
' Récupération des composants de la vente
Z = 1
w = 1
Set plage = Range("A2:G2")
For i = 1 To n
    For Each Cell In plage
        If Not IsEmpty(Cell) Then
            WordDoc.Bookmarks("Signet" & Z).Range.Text = Cells(2, i)
        Else
            Z = Z - 1
        End If
        i = i + 1
        Z = Z + 1
    Next Cell
Next i
For w = 1 To n
    WordDoc.Bookmarks("Signet" & w).Range.ListFormat.ApplyBulletDefault
Next w
WordDoc.Range.ListFormat.Space20