Essaie comme ça pour ListBox1 et fais pareil pour les deux autres :
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 With Me.ListBox1 y = Ligne For I = 0 To .ListCount - 1 If .Selected(I) = True Then y = y + 1 With Range("B" & y) .Value = .List(I) With .Font .Name = "Calibri" .Size = 9 .Bold = True .ThemeColor = xlThemeColorLight2 .TintAndShade = 0 End With End With End With End If Next I End With
Partager