Sub sup_espace()
'traite la colonne A
Dim c As Range
For Each c In Range("A1:A" & [A65536].End(xlUp).Row)
c = Application.Trim(c)
Next
End Sub
Sub sup_espace_II()
'traite toutes les cellules non vides de la feuille active
Dim c As Range
For Each c In ActiveSheet.UsedRange
If Not IsEmpty(c) Then
c = Application.Trim(c)
End If
Next
End Sub
Sub sup_espace_III()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If c Like "*@*" Then
c = Application.Trim(c)
End If
Next
End Sub