Private Sub UserForm_Initialize()
Dim fToto As Worksheet, fLolo As Worksheet, fVelo As Worksheet
'--- On purge les LB
Me.ListBox1.Clear
Me.ListBox2.Clear
Me.ListBox3.Clear
'--- On définit les WS
Set fToto = Sheet1: Set fLolo = Sheet2: Set fVelo = Sheet3
'--- On enregistre les valeurs dans des tableaux
tToto = fToto.Range("a2:f4").Value
tLoto = fLolo.Range("a2:f4").Value
tVelo = fVelo.Range("a2:f4").Value
'--- On alimente les listsbox
Me.ListBox1.List() = tToto
Me.ListBox2.List() = tLoto
Me.ListBox3.List() = tVelo
End Sub