Macro colorier la ligne active

J'ai trouvé une macro qui permet lorsque je selectionne une cellule, il me met en rouge toute la ligne .

Mais le problème c'est que lorsque je change de ligne, je perd la mise en forme de la précedente ligne.

voici la macro, il faut donc juste la modifier pour preserver la mise en forme

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Static AncAdress As Long

'Si la fonction activer/Déactiver est implémentée ajouter la ligne ci-dessous

If ActivationLigne Then Exit Sub

If Target.Count > 1 Then Exit Sub

If AncAdress <> 0 Then 'remettre en normal

Rows(AncAdress).Interior.ColorIndex = xlNone

Rows(AncAdress).Font.ColorIndex = 0

End If

Target.EntireRow.Font.ColorIndex = 6

Target.EntireRow.Interior.ColorIndex = 3

Target.EntireRow.Interior.Pattern = xlSolid

AncAdress = Target.Row

End Sub

If AncAdress <> 0 Then 'remettre en normal

Rows(AncAdress).Interior.ColorIndex = xlNone

Rows(AncAdress).Font.ColorIndex = 0

End If

Vire ce passage

Merci pour ton retour,

J'ai suivi ton conseil mais là la ligne reste rouge, elle ne revienne pas à la couleur précédente.

Tu t'expliques mal

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncAdress As Long
Static Ancintcolin As Long
Static Ancfoncolin As Long
'Si la fonction activer/Déactiver est implémentée ajouter la ligne ci-dessous
If ActivationLigne Then Exit Sub
If Target.Count > 1 Then Exit Sub
If AncAdress <> 0 Then 'remettre en normal
Rows(AncAdress).Interior.ColorIndex = Ancintcolin
Rows(AncAdress).Font.ColorIndex = ancfoncolin
End If
Target.EntireRow.Font.ColorIndex = 6
Target.EntireRow.Interior.ColorIndex = 3
Target.EntireRow.Interior.Pattern = xlSolid
AncAdress = Target.Row
Ancintcolin = Target.interior.colorindex
Ancfoncolin = Target.font.colorindex
End Sub