Option Explicit
Sub test()
Dim i As Byte, Adresse As Variant
Randomize
Adresse = Array("C3", "C5", "F3", "F5", "I3", "I5", "L3", "L5", "O3", "O5")
For i = LBound(Adresse) To UBound(Adresse)
Range(Adresse(i)).Value = Int(Range(Adresse(i)).Offset(0, 1).Value * Rnd) + 1
Next i
End Sub