........
Set label_uf = Me.Controls.Add("Forms.label.1", "Label_" & rge_cell.Value, True)
With label_uf
.Caption = rge_cell.Value
If rge_cell.Column = 6 Then label_uf.Visible = False
If rge_cell.Column > 9 Then label_uf.Visible = False
.Top = (((i_nb_control - 1) Mod i_nb_lignes_avant_saut_de_colonnes) + 1) * 20 + 5 + 14
.Left = Me.SB_Ascenceur.Left + Me.SB_Ascenceur.Width + 6 + ((i_nb_colonnes - 1) * (40 + 150 + 10 + 10))
.Width = 40
.Height = 12
End With
Set tbox_uf = Me.Controls.Add("Forms.textbox.1", "Textbox_" & rge_cell.AddressLocal, True)
With tbox_uf
.Top = label_uf.Top - 5
.Left = label_uf.Left + label_uf.Width + 10
.Width = 150
.Value = Cells(ActiveCell.Row, rge_cell.Column).Value
If rge_cell.Column > 9 Then tbox_uf.Visible = False 'Locked = True
If rge_cell.Column = 6 Then tbox_uf.Visible = False
End With
.........