Private Sub UserForm_Initialize()
Dim i As Byte, c As Byte, l As Byte
i = 1
For l = 1 To 32
For c = 1 To 6
UserForm1.Controls("Label" & i) = Cells(l + 4, c + 2).Value
If Sheets("Feuil1").Cells(l + 4, c + 2).Value = "REPOS" Then _
UserForm1.Controls("Label" & i).BackColor = &H80FF&
i = i + 1
Next c
Next l
End Sub