conditional formatting to be macro on specific rows and colums

[snb]

Sub M_snb()
  sn = Sheet1.Cells(10, 1).Resize(, 35)
  
  ReDim sp(7)
  For j = 0 To 7
    sp(j) = Sheet1.Cells(11, 36 + j).Interior.Color
  Next
  
  For j = 2 To UBound(sn, 2) Step 3
    If sn(1, j) > sn(1, 1) Then Sheet1.Cells(10, j).Interior.Color = sp((sn(1, j) - sn(1, 1)) \ 100 - 1)
  Next
End Sub

for all sheets:

Sub M_snb()
  ReDim sp(7)
  For j = 0 To 7
    sp(j) = Sheet1.Cells(11, 36 + j).Interior.Color
  Next
  
  For Each it In Sheets
    sn = it.Cells(10, 1).Resize(, 35)
  
    For j = 2 To UBound(sn, 2) Step 3
       If sn(1, j) > sn(1, 1) Then it.Cells(10, j).Interior.Color = sp((sn(1, j) - sn(1, 1)) \ 100 - 1)
    Next
  Next
End Sub