Couleur de ligne verte de A à E

Bonjour à tous,

Je cherche une ligne de code VBA pour colorier en vert une ligne de A à E lors de sollicitation de ce code.

A savoir qu'une cellule de la ligne sera activé par la souris préalablement.

Merci bien par avance.

Christophe.

Bonjour

Code dans un module associé à un bouton

Sub Macro1()
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 5)).Interior.ColorIndex = 4
ActiveCell.Select
End Sub

Cordialement

Merci bien, cela fonctionne parfaitement.

Bonne fin d'après-midi.

Bonjour

Sub Macro1()
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 5)).Interior.ColorIndex = xlNone
ActiveCell.Select
End Sub

Cordialement

Bonjour Amadéus,

Merci bien pour ton aide précieuse, une bonne journée.

Bien cordialement,

Christophe.