Sub Aleatoire()
Dim Li As Byte, Col As Byte
Dim Target As Range
Dim Cancel As Boolean
Dim X As Byte
Dim Y As Byte
For X = 5 To 170
For Y = 3 To 16 Step 3
Randomize
If Cells(X, 3).Row Mod 4 = 1 Or Cells(X, Y).Row Mod 4 = 2 Then Cells(X, Y + 1) = Int(Cells(X, Y) * Rnd + 1)
Next Y
Next X
Cancel = True
End Sub