Re : Renommer ensemble de mot ou valeur
Bonjour, un peu extrême mais fonctionnel aussi
Sub remplacer()
Dim c As Range, reg As Object
Set reg = CreateObject("vbscript.regexp")
reg.Pattern = "Jean-?\s?Paul"
For Each c In Feuil1.Range("a3:A11")
Set nn = reg.Execute(c)
For Each n In nn
c = Replace(c, n, "Julien")
Next n
Next c
End Sub