Recherche de valeur et remplacement dans la celulle gauche de la valeur trouvée

Bonjour,

Je souhaite rechercher dans l'ensemble de la feuille une valeur ("Frais Réels") et la reproduire dans la cellule à sa gauche...

Je souhaite également que cela se fasse à chaque changement de donnée dans la feuille.
Pour cela, j'ai commencé avec (dans ThisWorkBook) :
<code>
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)


Cells.Select
Selection.Find(What:="Frais Réels", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

End Sub
<Code>

Si quelqu'un pouvait m'aider.
Merci d'avance