Macro fonction recherche

bonjour, je me tourne a vous, parce que j'ai un petit problème.

Je possède un tableau excel avec plusieurs colonnes et des valeurs dedans.

Je souhaite utiliser une macro afin de retrouver facilement des références inscrites dans mon tableau.

j'utilise actuellement le code ci dessous qui fonctionne bien d'ailleurs :

Sub trouver_un_mot()

Dim c As Range

Dim flag As Boolean

Dim Mot As String

Mot = InputBox("Mot à trouver" )

For Each c In ActiveSheet.UsedRange

If c.Value = Mot Then

flag = True

Exit For

End If

Next

If flag Then

MsgBox "Le mot " & Mot & " a été trouvé à la cellule " & c.Address

Else

MsgBox "le mot n'a pas été trouvé"

End If

End Sub

Cependant j'aimerais que ma case devienne d'une certaine couleur et que le curseur aille sur la case quand la référence est connu dans ma feuille.

Est-ce possible ? merci.

Bonsoir,

ci-joint une proposition.

Bouben