Private Sub UserForm_Initialize()
Dim jour1 As Integer
jour1 = Weekday(Now)
With Sheets("Art").Activate
For Ligne = 2 To 7
Me.Controls("label" & Ligne).Caption = Cells(Ligne, jour1)
Me.Controls("textbox" & Ligne).Value = Cells(Ligne, jour1)
Next Ligne