Epaisseur des bordures

   Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count = 1 Then
    If Target.Column = 1 Then
      With Range("A" & Target.Row & ":H" & Target.Row) ' De la colonne A à H
       If Target.Value = "" Then 'Supprimer bordure si cellule A est vide
         .Borders.LineStyle = xlNone
         
        Else
                 .Borders.Weight = xlThick  'xlMedium
          .Borders.ColorIndex = 3
          .Borders(xlInsideVertical).LineStyle = xlDot
        End If
      End With
    End If
  End If
End Sub