Private Sub UserForm_Initialize()
Dim r As Range, i&, lstBx As MSForms.ListBox
For i = 1 To 3
Set r = Range("Tjeux" & i)
With Me.Controls("ListBox" & i)
.Clear: If r.Rows.Count > 1 Then .List = r.Value Else If r.Value <> Empty Then .Column = Application.Transpose(r.Resize(1, 2).Value)
End With
Next
End Sub