Sub Ajoute()
Dim T, i%, T0
Application.ScreenUpdating = False
T = Range("A1:A" & Range("A65500").End(xlUp).Row) ' Adapter colonne, ici A.
For i = 1 To UBound(T)
T(i, 1) = Mid(T(i, 1), 1, Len(T(i, 1)) - 3) & "|xx -"
Next i
Range("A1").Resize(UBound(T), 1).Value = Application.Transpose(T)
End Sub