Sub CouleurNom()
Dim Nom As Name
Dim plage As Range
Dim derlig As Integer
derlig = Cells.SpecialCells(xlCellTypeLastCell).Row
Set plage = Sheets("Feuil1").Range("A5:AN" & derlig)
For Each Name In Names
If Not Intersect(plage, Range(Replace(Name.RefersTo, "=", ""))) Is Nothing Then
Range(Replace(Name.RefersTo, "=", "")).Interior.Color = 15
End If
Next
End Sub