Option Explicit
Dim Ws As Worksheet, a, b, L As Long, i As Long, j As Long
Private Sub CommandButton1_Click()
For i = 1 To 31
Ws.Cells(L, i + 1) = Me("TextBox" & i)
Next
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Me.Label1.Caption = Format(Date, "ddd-dd-mmm-yyyy")
Set Ws = Worksheets("plg")
' a = Ws.Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Value2
b = Ws.Range("B1:AF1")
j = 1
For i = 1 To UBound(b, 2)
j = j + 1: Me("Label" & j) = b(1, i)
Next
For i = 1 To 31
Me("Textbox" & i) = Cells(Ligne, i + 1)
Next
' L = Application.Match(CLng(Date), a, 0)
' Ws.Range("A" & L).Activate
'For i = 1 To 31
'Me("TextBox" & i) = i
'Next
End Sub