Reduire code vba

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

Code:

---

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:

---

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.

Bonjour à tous
Bonjour akmer

Si j'ai bien compris, essaie ceci :

Code:

---

Selection.Borders.LineStyle = xlNone

---

Eric

soit dit en passant :

Code:

---

1 2	Cells.Select Selection.Borders.LineStyle = xlNone

---

équivaut à :

Code:

---

Cells.Borders.LineStyle = xlNone

---

sauf que la seconde prend 1 ligne, la première 2 :)

Merci à vous 2(laloune,edelweisseric) vos réponses sont celles que je voulais.
Derniére petites questions:
Il y a t'il une formule qui permettent de selectionné aucune case sous Excel, car dès qu'on vas sur une feuille il y a toujours une cellule selectionné et je voudrais inséré dans mes codes vba un code qui permetten d'éviter cela.
Je précise que je veux que aucune cellule soit selectionné mais par la suite il sera possible de selectionné une cellule.
Merci encore pour votre aide et j'éspére que vous trouverai une solution à la question ci-dessus.
Cordialement