Private Sub UserForm_Initialize()
Dim tB, tC, tD, tlB, tlC, tlD, i&
tlB = Split("5 17 16 15 14 13 12 11 10 9 8 7")
tlC = Split("18 29 28 27 26 25 24 23 22 21 20 19")
tlD = Split("30 41 40 39 38 37 36 35 34 33 32 31")
With Sheets("auteuil")
tB = .Range("B2:B13")
tC = .Range("C2:C13")
tD = .Range("D2:D13")
End With
For i = 0 To 10
Me.Controls("Label" & tlB(i)).Caption = tB(i + 1, 1)
Me.Controls("Label" & tlC(i)).Caption = tC(i + 1, 1)
Me.Controls("Label" & tlD(i)).Caption = tD(i + 1, 1)
Next i
End Sub