Sub Nettoie()
Dim DL%, DC%, i%, j%, T, T1, T2
Application.ScreenUpdating = False
DL = Cells(Cells.Rows.Count, "A").End(xlUp).Row
DC = Cells(1, Columns.Count).End(xlToLeft).Column
T = Range(Cells(1, 1), Cells(DL, DC))
For i = 1 To UBound(T)
For j = 1 To UBound(T, 2)
If T(i, j) Like "*(*" Then
T1 = Split(T(i, j), "(")
T2 = Split(T1(1), " ")
T(i, j) = T1(0) & "(" & T2(0) & ")"
End If
Next j
Next i
[A1].Resize(UBound(T, 1), UBound(T, 2)) = T
End Sub