Bonjour,
Une façon de faire ... il restera à adapter ....
Sub RENOM()
Dim X, Y, Z, A As Long
Dim I, p As Integer
Dim MyRange As Range
Dim Cel As Range
Dim CCol As Integer
Sheets("PTECH").Select
Set MyRange = Range("A1:BZ1")
For Each Cel In MyRange
If Cel = "ND_MAJSRC" Then 'nom à adapter au besoin
CCol = Cel.Column
For X = 1 To Cel(Application.Rows.Count, CCol).End(xlUp).Row
Cells(X, CCol) = Replace(Cells(X, CCol), "PIT ORANGE", "CHAMBRES FT")
Cells(X, CCol) = Replace(Cells(X, CCol), "CREATION", "CHAMBRES A CREER")
Cells(X, CCol) = Replace(Cells(X, CCol), "GESPOT", "POTEAUX FT")
Cells(X, CCol) = Replace(Cells(X, CCol), "PIQUETAGE", "POTEAUX ERDF")
Next X
End If
Next
'''' répéter pour la suite
''''
''''
Gelinotte