Only 2 minor amendments:

Sub M_snb()
    On Error Resume Next
    sp = Split("Cell Value|Expression|Color Scale|DataBar|Top 10?|Icon Sets||Unique Values|Text|Blanks|Time Period|Above Average||No Blanks||Errors|No Errors|||||", "|")
    ReDim sn(Sheet1.Cells.SpecialCells(xlCellTypeAllFormatConditions).Count * 3)
    
    For Each cl In Sheet1.Cells.SpecialCells(xlCellTypeAllFormatConditions)
        For Each cf In cl.FormatConditions
            x4 = ""
            x4 = cf.Formula1
            x5 = ""
            x5 = cf.Formula2
            sn(y) = Array(cf.Type, sp(cf.Type), cf.AppliesTo.Address, cf.StopIfTrue, "'" & x4, "'" & x5)
            y = y + 1
        Next
    Next
     
    With ThisWorkbook.Sheets.Add
        .Range("A1:F1").Value = Split("Type|Typename|Range|StopIfTrue|Formula1|Formula2", "|")
        For j = 0 To y
            .Cells(2 + j, 1).Resize(, 6) = sn(j)
        Next
    End With
End Sub