Sub Remplace()
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
.Columns(5).Insert xlToRight 'insère une colonne auxiliaire
With .Columns(5)
.FormulaR1C1 = "=TRIM(SUBSTITUTE(RC[1],CHAR(9),"" ""))"
.Value = .Value 'supprime les formules
.Offset(, 1) = .Value
.Delete xlToLeft 'supprime la colonne auxiliaire
End With
End With
End Sub