encadrer et une ligne sur 2 en couleur MEFC

Bonjour à tous,
En ce qui concerne l'encadrage, avec l'enregistreur de macros, on obtient
quelque chose d'assez lourd qui prend en charge chaque coté, bien que j'ai
cliqué directement sur l'icone de la barre des menus; voici le code obtenu :
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 13/01/2005 par xxxx
'

'
Range("B3:C9").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub


Bien cordialement





"Hervé" <h.lebeau@club-internet.fr> a écrit dans le message de
news:%23ldXhWC%23EHA.3336@TK2MSFTNGP11.phx.gbl...

Bonsoir.
j'ai un tableau classique, je désire avoir une ligne sur 2 colorée afin de
faire ressortir les lignes dont la colonne A est remplie, ainsi que
encadrer celles-ci
Merci
Hervé