Sub AleaX()
Dim T1(1 To 60, 1 To 2), i As Long, Ws As Worksheet
For Each Ws In Worksheets
Randomize
For i = 1 To 60
T1(i, 2) = "x"
Next
For i = 1 To 60 Step 4
decal = Int(4 * Rnd)
T1(i + decal, 1) = "X"
T1(i + decal, 2) = ""
Next
Ws.Range("G6").Resize(60, 2) = T1
Erase T1
Next
End Sub