Couleur cellule initiale après recherche

Bonjour,

J’ai les macros suivantes qui me permettent de rechercher un nom dans une colonne via un inputbox. :

Sub Bouton5_Cliquer()
    Dim Var As String, c As Long
    Var = InputBox("Enter la référence")
    c = Application.Match(Var & "*", [A:A], 0)
    If IsNumeric(c) Then
        Cells(c, 1).Select
        Cells(c, 1).Interior.ColorIndex = 8
        End If
End Sub

Lorsque je clic sur "Recherche", j'indique le nom dans l'inputbox et la cellule correspondante se met en bleu.

Ce que je recherche :

- Après la recherche, la cellule doit revenir à sa couleur de départ si je sors de la cellule ou si je fais une autre recherche.

- La cellule "A1" (Titre de la colonne) ne doit pas être concernée par la recherche.

Je joins le fichier en annexe.

Bonne journée.

Merci

je ne sais pas si je dois aussi mettre un code comme :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Columns(1).Interior.ColorIndex = 
End Sub