Private Sub UserForm_activate()
Dim c As Range, Extensions As Range
'Autorise la sélection multiple
Me.Liste_Ext.MultiSelect = fmMultiSelectMulti
'Remplit la zone de liste avec les extensions de
'la plage de cellules nommée "Extension"
With Choix_Ext
For Each c In Range("Extension")
.Liste_Ext.AddItem CStr(c)
Next
End With
End Sub