Private Sub CommandButton1_Click()
Dim x, i As Byte
On Error Resume Next 'sécurité
x = Array("x1", "x2", "x3", "etc")
For i = 1 To 80
'Me.OLEObjects("Label" & i).Object.Caption = x(i - 1) 'dans une feuille de calcul
Me.Controls("Label" & i).Caption = x(i - 1) 'dans un UserForm
Next
End Sub