Bonjour Pierre, le Forum
Pour voir, je viens de tester ceci :
Private Sub UserForm_Initialize()
Dim TheTimer As Double
Dim i As Long
TheTimer = Timer
For i = 1 To 65536
Me.ListBox1.AddItem "Toto " & i
Next
MsgBox Timer - TheTimer
End Sub
Pas de souci, si ce n'est une trentaine de seconde pour le Load du UserForm... (PIV 1.5 ici)
Bon Aprèm
@+Thierry