À placer dans le module de la feuille

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

Éventuellement ajouter dans un module général (module1 par exemple)

• Soit mettre un bouton sur la macro
• Soit mettre un raccourci

Public ActivationLigne as boolean
Sub Activer()
    ActivationLigne =not ActivationLigne
end sub