Créer une macro sous Excel qui permet de supprimer les espaces dans une plage de cellules ?

Cette macro permet de supprimer les espaces avant et après le contenu d'une cellule. Pour l'utiliser il faut selectionner la plage de cellule concernée et l'éxecuter à partir du menu macro sous Excel.

Code :

Option Explicit
Sub Supprimer_Espace()

Dim cell As Range

For Each cell In Selection
cell.Value = Trim(cell.Value)
Next cell

End Sub