Option Base 1
[COLOR="Red"]Dim MyArray(38, 3)[/COLOR]
Private Sub CommandButton1_Click()
Unload UserForm1
End Sub
Private Sub UserForm_Initialize()
Dim J As Single
Lig = ActiveCell.Row
ListBox1.ColumnCount = 5
ListBox1.ColumnWidths = "70;120"
For J = 1 To 38
If J < 10 Then
MyArray(J, 1) = "Journée 0" & J & " : "
Else
MyArray(J, 1) = "Journée " & J & " : "
End If
[COLOR="red"] MyArray(J, 2) = Cells(Lig, ((J - 1) * 2) + 2)
MyArray(J, 3) = Cells(Lig, ((J - 1) * 2) + 3)
[/COLOR]
Next J
ListBox1.List() = MyArray
UserForm1.Label2 = "Equipe : " & ActiveCell.Value
End Sub