XL 2013 Bordures conditionnelles

Option Explicit
Option Compare Text
Sub Quadriller()
    Dim c As Range
    With Range("a1").CurrentRegion
        .Font.Bold = False
        .Borders.Value = 0
        .Borders(xlInsideVertical).LineStyle = xlContinuous
    End With
    With Range("a1").Resize(, 7): .Font.Bold = True: .Borders.Value = True: End With
    For Each c In Columns(1).SpecialCells(xlCellTypeConstants, 23)
        If c Like "*total*" Then c.Resize(, 7).Font.Bold = True: c.Resize(, 7).Borders.Value = True
    Next
    Range("a1").CurrentRegion.BorderAround xlContinuous, xlMedium
End Sub