Bonjour, est il possible de reduire cette formule vba qui consiste à enlever SEULEMENT les bordures:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
Sheets("Feuil1").Select
Cells.Select
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
J'avais pensé à ceci mais cela ne marche, je suis débutant donc je tente tous ce que je peux:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Private Sub CommandButton1_Click()
Sheets("Feuil1").Select
Cells.Select
Selection.Borders(xlEdgeLeft, xlEdgeTop, xlEdgeBottom, xlEdgeRight, xlInsideVertical, xlInsideHorizontal).LineStyle = xlNone
End Sub
Merci d'avance pour vos conseils.