Private Sub UserForm_Initialize()
TextBox55.MultiLine = True
For i = 1 To 51: Set txt(i).txt = Controls("T" & i): Next i
For i = 2 To 13: Set txt1(i).txt1 = Controls("TextBox" & i): Next i
For i = 1 To 7: Set optb(i).optb = Controls("OptionButton" & i): Next i
lbx1.ColumnWidths = "100;150;150;190;110;80;80"
OptionButton1 = True
Application.ScreenUpdating = False
Sheets("R-HEURES").Activate
If Cells(3, 2) = "" Then
TextBox1 = "2011_0001"
Else
TextBox1 = Format(Right(Cells(Rows.Count, 2).End(xlUp).Value, 4) + 1, "2011_0000")
End If
ect....