Sub Macro1()
'
' Macro1 Macro
'
'
Range("A4:X60").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub
... astuce pour toute effacer en une ligne pour une meilleur lisibilité du code...
Sub Zéro_bordure()
Sheets("Feuil2").Range("A4:X60").Borders.Value = 0
End Sub