Sur Clic ds cellule, met en jaune jusqu'à la fin

Bonjour Tous le Monde,

Je cherche une macro pour que, quand je clic sur n'importe quelle cellule de la colonne A, que la ligne se mette en fond jaune sur toute sa ligne et jusqu'à la dernière ligne renseignée et ainsi de suite.

Je joins un fichier avec un exemple.

Merci

Jean

Bonjour Jean,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set isect = Application.Intersect(Target, Range("A:A"))
If Not isect Is Nothing Then
Range("A" & Target.Row & ":J" & Cells(Rows.Count, 1).End(xlUp).Row).Interior.Color = 65535
End If
End Sub

Bonjour sabV,

Encore une fois, dans le MILLE.

Un GROS MERCI

Jean.

Jean, Merci pour ce retour, au plaisir!