Bordures Et Couleurs de Remplissage (VBA)

Sub MacroFormats()
With Range("H14:H15,L15,O14:O15")
  With .Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorDark1
    .TintAndShade = -4.99893185216834E-02
    .PatternTintAndShade = 0
  End With
  With .Borders(xlEdgeLeft)
    .LineStyle = xlDouble
  End With
  With .Borders(xlEdgeTop)
    .LineStyle = xlDouble
  End With
  With .Borders(xlEdgeBottom)
    .LineStyle = xlDouble
  End With
  With .Borders(xlEdgeRight)
    .LineStyle = xlDouble
    .ColorIndex = xlAutomatic
    .TintAndShade = 0
    .Weight = xlThick
  End With
  .Borders(xlInsideVertical).LineStyle = xlNone
  With .Borders(xlInsideHorizontal)
    .LineStyle = xlContinuous
  End With
End With
End Sub