Private Sub UserForm_Initialize()
Dim I As Integer
Dim B As Variant
With Worksheets("BASE")
Tablo = Array([B2], [B4], [B6])
For I = 1 To 3
For A = LBound(Tablo) To UBound(Tablo)
Me.Controls("TexTBox" & I) = Tablo(A)
Me.Controls("TextBox" & I).Value = Format(Me.Controls("Textbox" & I).Value, "00#.## %")
Next A
Next I
End With
End Sub