surbrillance d'une lingne

[sihem]

salut forum
j'ai une feuille d'une centaine des lignes et je veux laisser en surbrillance la 15 ème ligne ,comment prcède-je? merci

 

[JB]

Salut Sihem,

voici une petite explication que tu devras adapter à ton programme.

Elle met automatiquement le fond de la quinzième ligne en jaune pâle.

Sub Autpen()
Sheets("Feuil1").Rows("15:15").Select
With Selection.Interior
.ColorIndex = 36
.Pattern = xlSolid
End With

End Sub

@+