Remplace et recherche par rapport a une cellule

Bonjour,

J'ai deux cellules avec une liste dedans, la première cellule permet de choisir un mot à rechercher et la deuxième à remplacer.

Et je voudrais que quand je clique sur le bouton, le VBA chercher et remplace les mots qui sont en haut, dans une plage donnée mais impossible de faire fonctionner le tout

    Range("A1:C11").Select

   Selection.Replace What:"=R2C24"  , Replacement: "=R2C25" , LookAt:=xlPart _
    , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False

J'ai utilisé ce code, via l'enregistreur de macro je sais que c'est pas top mais j'ai pas trouvé meilleur moyen x)

Merci pour votre aide et bonne fêtes

Bonjour

Ton code sous-entend de remplacer .....2015 par .....2014

Mais dans la feuille B1 c'est ...2014 à remplacer par B2 ....2015

Qu'en est il au juste ?

En attendant

Sub test()
  Range("A8:A11").Replace What:=Range("B2"), Replacement:=Range("B1"), LookAt:=xlPart, _
                          SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                          ReplaceFormat:=False
End Sub

Pour le B1 c'est une erreur, après c'est exactement ça le code ! , il me semblait l'avoir fait mais j'ai du merder qq part....

Merci en tout cas