Epaisseur des bordures

Bonjour à tous les participants de ce forum,

J'utilise souvent pour la présentation de mes tableaux une bordure ou quadrillage. même en choissant trait fin, l'impression ne me plait pas, les traits ressortent trop épais.

J'ai fait un test avec une forme automatique avec épaisseur de trait 1/2 et là, l'impression est parfaite.

Question comment en VBA creer une bordure d'épaisseur 1/2?

J'ai essayé comme ça, mais ca ne convient pas inch:

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = 1
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = 1
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = 1
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = 1
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone


Un grand merci à mon sauveur...