Sub test_bordures()
Dim c As Range
Dim i As Integer
Dim ligne As Long
Dim colonne As Integer
Application.ScreenUpdating = False
For Each c In Range("A1:A" & [A65536].End(xlUp).Row)
If Not IsEmpty(c) Then
ligne = c.Row
colonne = Cells(c.Row, 256).End(xlToLeft).Column
With Cells(ligne, 1).Resize(1, colonne)
For i = 1 To 4
With .Borders(i)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Next
End With
End If
Next c
Application.ScreenUpdating = True
End Sub