[Excel] Macro : Remplacer des valeurs de cell

Bonjour,

Je vous sollicite car j'ai un pb :

Dans une de mes macros, une partie a une fonction précise : Elle doit

- Selectionner un champ de cellules
- Rechercher une certaine valeur ( ie la valeur de la case A46 )
- Remplacer à chaque fois cette valeur par une autre ( ie la valeur de la case B46)

Le problème, c'est que je n'arrive pas à poser cette fonction avec des valeurs variables ( que sont les valeurs de cases A46 et B46 ) .

Voici mon code, qui ne fonctionne pas :

    Range("C9:H25").Select
    Selection.Replace What:="Cells(A46).Value", Replacement:="Cells(B46).Value", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Merci d'avance pour votre aide !