Sub SupprEspace()
Dim i As Long
Dim Ws As Worksheet
Dim Colonne As String
'Feuille où doit tourner la macro
Set Ws = ThisWorkbook.Sheets("Feuil1")
'Colonne où doit tourner la macro
Colonne = "J"
With Ws
For i = 1 To .Range(Colonne & "65536").End(xlUp).Row
.Range(Colonne & i).Value = Replace(.Range(Colonne & i).Value, " ", "")
Next i
End With
End Sub