supprimer espace a l'interieur de phrases

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

Cliquez pour agrandir...