Sub Changer()
Dim a, c As Range, x As Variant
a = [{"Jacques","Lille";"Denis","Lille";"Pierre","Roubaix";"François","Roubaix";"Jean","Tourcoing";"Max","Tourcoing"}]
On Error Resume Next
For Each c In [A:A].SpecialCells(xlCellTypeConstants, 2)
x = Application.VLookup(c, a, 2, 0)
If Not IsError(x) Then c = x
Next
End Sub