VBA - Bordures sur plusieurs plages de cellules

Sub test()
Dim i As Long
    For i = 3 To Range("C" & Rows.Count).End(xlUp).Row
        If Range("C" & i - 1).Value = "" Then
            With Range("C" & i).CurrentRegion
                .Borders(xlEdgeLeft).Weight = xlMedium
                .Borders(xlEdgeTop).Weight = xlMedium
                .Borders(xlEdgeBottom).Weight = xlMedium
                .Borders(xlEdgeRight).Weight = xlMedium
            End With
        End If
    Next i
End Sub

Sub Bordures()
Dim r As Range, i As Byte
On Error Resume Next 'si aucune constante
Set r = [B3:B65536].SpecialCells(xlCellTypeConstants)
For Each r In r
  With r.CurrentRegion
    For i = 7 To 10
      .Borders(i).Weight = xlMedium
    Next
  End With
Next
End Sub

Sub Bordures()
Dim r As Range, i As Byte
Application.ScreenUpdating = False
Cells.Borders.LineStyle = xlNone 'RAZ
On Error Resume Next 'si aucune constante
Set r = [B3:B65536].SpecialCells(xlCellTypeConstants)
For Each r In r
  With r.CurrentRegion
    For i = 7 To 10
      .Borders(i).Weight = xlMedium
    Next
  End With
Next
End Sub

Sub test()
Dim i As Long
    For i = 3 To Range("C" & Rows.Count).End(xlUp).Row
        If Range("C" & i).Value = "" Then
            Range("C" & i).EntireRow.Borders(xlInsideVertical).LineStyle = xlNone
        End If
    Next i
End Sub