Sub Tests_D()
Dim i&, tVariables
tVariables = Array("ABCD", "EFGH", 123, 456)
For i = LBound(tVariables) To UBound(tVariables)
MsgBox tVariables(i)
'Me.Controls("TextBox" & i)= tVariables(i) ' exemple pour TextBox
Next
Const vVAR1 As String = "ABC"
Const vVAR2 As String = "ABCD"
MsgBox vVAR1
MsgBox vVAR1 = CStr(tVariables(0))
MsgBox vVAR2 = CStr(tVariables(0))
End Sub