Colorer la ligne jusqu’à la cellule sélectionnée

Bonjour
je souhaite colorer le début de la ligne jusqu’à la cellule sélectionnée.
au début J'ai utilise ce code suivant
Pièce jointe 416359

Code:

---

1 2 3 4

Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Cells.Interior.ColorIndex = 0 Range(Selection, Selection.End(xlToLeft)).Interior.ColorIndex = 6 End Sub

---

Mais le problème si cette ligne contient des valeurs alors la couleur stop dans la première cellule non vide avant ma sélection
Pièce jointe 416363
Svp est ce qu'il y a une solution pour éviter a jouter plusieurs .End(xlToLeft) dans le code

bonjour
essayer avec

Code:

---

1 2 3 4

Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Cells.Interior.ColorIndex = 0 Range(ActiveCell, Cells(ActiveCell.Row, 1)).Interior.ColorIndex = 6 End Sub

---

Merci beaucoup Mr BENNASR