Sub ChargementListBox2(MultiS)
Dim NumL&, i%, NumFin&
Dim Mot$, Z%, Col%
Col = Sheets("Feuil1").Cells(2, 3).Value
'--------------------------------------
If Label3 = "" Then Exit Sub 'si doc présente
NumL = Label3
'--------- Gabari ListBox2 ------------
ListBox2.Clear
With ListBox2
'zz
.MultiSelect = fmMultiSelectExtended 'MultiS 'fmMultiSelectMulti'fmMultiSelectExtended
.Font = "courier new"
.ColumnHeads = False
.ColumnCount = 1
.ColumnWidths = 400
.Height = 380
.Width = 510
End With