Remplacer texte par valeur cellule

[YANOU]

Bonjour à tous.
Je veux rechercher/remplacer "Dossier type" (dans les Cellules C3 à C6) par la valeur de ma cellule E3
Pour l'instant, j'en suis à :

Sub Rempacer()
'
' Rempacer Macro
'

'
    Range("C3:C6").Select
    Selection.Replace What:="Dossier type", Replacement:="2", LookAt:=xlPart _
        , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
End Sub

Pour l'instant, j'ai juste mis "2" dans ma formule pour faire fonctionner ma macro correctement.
Je n'arrive pas à trouver le code pour cibler la valeur "2" de ma cellule E3.
Merci pour votre aide.

 

[Dranreb]

Vous avez oublier d'implanter ma Sub ChangerLien du poste #22 dans un module standard de service.
Mais il y a autre chose: vous avez maintenant mis une formule en B7 qui renvoie la valeur de A24.
Alors elle ne changera plus de contenu mais seulement de valeur. Il faut maintenant tester ElseIf Target.Address = "$A$24" Then