Sub LabelsTextBox()
For c = 1 To NbCol
Me("textbox" & c).Width = Range(NomTableau).Columns(c).Width * 1.3
tmp = Range(NomTableau).Offset(-1).Item(1, c)
Me("label" & c).Caption = tmp
lg = Len(tmp): If Len(tmp) > 11 Then lg = 11
Me("label" & c).Width = lg * 6
Next
Me.TextBox5.Width = 300
Me.TextBox11.Width = 300
End Sub