Sub AjoutLabels()
HF = UserForm1.Height 'définit la variable HF
TB = UserForm1.CommandButton1.Top
For x = [B][COLOR="Red"]1 [/COLOR][/B]To 20
'redéfinit HB / redimensionne l'UserFOrm
HF = HF + 13: UserForm1.Height = HF
'redéfinit TB / repositionne les deux boutons
TB = TB + 13: UserForm1.CommandButton1.Top = TB: UserForm1.CommandButton2.Top = TB
'ajoute un Label
Set Control = UserForm1.Controls.Add("Forms.Label.1", "Label" & x, True)
[COLOR="Blue"][B]Control.Height = 12[/B][/COLOR]
Control.Top = TB - 100 'positionne le Label (hauteur)
Control.Left = 12 'positionne le Label (à gauche)
Control.Caption = "Niveau : " & Range("A" & [COLOR="Red"][B]x[/B][/COLOR]) & Chr(10) & Range("D" & [COLOR="Red"][B]x[/B][/COLOR])
'Control.TextAlign = ContentAlignment.MiddleCenter
Control.AutoSize = True
'détermine le texte du Label
Next x
UserForm1.Show
End Sub