Bonjour,
Une piste de suppression des codes postaux et des parenthèses (si j'ai bien compris la demande !)
La plager commence en E7 (L = 7, C = 5) :
Sub Test()
Dim Fe As Worksheet
Dim Plage As Range
Dim Cel As Range
Dim Pos As Integer
For Each Fe In Worksheets
Set Plage = DefPlage(Fe, 7, 5)
For Each Cel In Plage.Cells.SpecialCells(xlCellTypeConstants)
Pos = InStr(Cel.Value, " (")
If Pos <> 0 Then Cel.Value = Left(Cel.Value, Pos - 1)
Pos = 0
Next Cel, Fe
End Sub
Function DefPlage(Fe As Worksheet, Optional L As Long = 1, Optional C As Long = 1) As Range
On Error GoTo Fin
With Fe
Set DefPlage = .Range(.Cells(L, C), _
.Cells(.Cells.Find("*", .[A1], -4123, , _
1, 2).Row, .Cells.Find("*", .[A1], -4123, , _
2, 2).Column))
End With
Exit Function
Fin:
Set DefPlage = Nothing
End Function