A
azerty
Guest
bonjour,comment supprimer les espaces a l'interieur de textes compris dans des cellules?Il faut recopier bien entendu...
Sub Azerty()
Dim Plage As Range, Cell As Range
With Feuil1
Set Plage = .Range(.Range('A1'), .Range('A65536').End(xlUp))
End With
For Each Cell In Plage
Cell.Offset(0, 1) = Application.WorksheetFunction.Substitute(Cell.Text, ' ', '')
Next Cell
End Sub