Private Sub UserForm_Initialize()
Label1 = titre123
Dim i As Integer
aller = Cells(vligne, colonnePMG).Value
Nlot = Cells(vligne, colonnePMG2).Value
For i = 0 To 44 Step 1
aller = Cells(vligne + i, colonnePMG).Value
Nlot = Cells(vligne + i, colonnePMG2).Value
Controls("CommandButton" & i + 1).Caption = "PMG " & aller & " " & Nlot
Next i
End Sub