Option Explicit
'Constantes
Public Const Val1_ADDRESS As String = "B2"
Public Const Val2_ADDRESS As String = "B3"
Public Const Val3_ADDRESS As String = "B4"
Public Const Val4_ADDRESS As String = "B5"
Public Sub test()
Dim uneValeur As String
For i = 1 To 4
Range("Val" & i & "_ADDRESS") = "uneValeur"
Next j
End Sub