XL 2019 Rechercher un mot dans un texte et le remplacer par le contenu (x) d'une cellule

[onecoderz]

Bonjour,

Je me casse la tête depuis plusieurs mois sur un projet.

Je souhaiterais pouvoir remplacer un mot dans un texte par les informations inscrite dans une cellule. Je précise que je veux pas copier le mot mais la cellule. Car si je me retrouve avec une nouvelle liste. J'aimerais pouvoir effectuer à nouveau cette tâche avec une macro.

J'ai précisé ce que je souhaite dans le fichier excel pour mieux me comprendre.

Merci de votre aide.

 

[Staple1600]

Bonjour,

Fonctionne avec l'exemple fourni
(Exécutez la macro test)

Sub test()
choix 1
MsgBox "test 1"
choix 2
MsgBox "test 2"
choix 3
MsgBox "test 3"
choix 4
MsgBox "test 4"
End Sub
Private Sub choix(n As Byte)
Dim vArr, i%
vArr = Application.Transpose([E2:E5])
For i = 1 To 4
Cells(i + 1, "H") = VBA.Replace(Cells(i + 1, "B"), "(couleur)", vArr(n))
Next
End Sub