Private lblCs(20) As MSForms.Label
Private Sub UserForm_Initialize()
Me.Width = 350
Me.Height = 350
For Ligne= 1 To 10
For colonne = 1 To 2
NbLabel = NbLabel+ 1
Set lblCs(NbLabel) = Me.Controls.Add("Forms.Label.1", "lbl1")
With lblCs(NbLabel)
.Top = ligne * 30
.Left = (Colonne * 90) - 50
.Caption = "Label" & NbLabel
End With
Next Colonne
Next ligne
Me.Show
End Sub