J'avoue que je n'ai pas vu pourquoi la liste rapetissait un peu plus à chaque apparition...
Alors, j'ai forcé ses dimentions :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ch As String, ch2 As String, pos As Long, i As Long
Dim plage, nomListe, numListe As Long, topIndex As Boolean
.....
LbxListe.Left = Target.Offset(0, 1).Left
LbxListe.MultiSelect = fmMultiSelectMulti
LbxListe.Height = 68
LbxListe.Width = 95
...
interne = True ' palliatif, EnableEvents ne marche pas
Bye !