Sub LoopSpaceKiller()
Dim TabloPlage As Variant
Dim RangePlage As Range
Set RangePlage = Range(Range('B2'), Range('B65536').End(xlUp))
TabloPlage = RangePlage
For i = 1 To UBound(TabloPlage, 1)
TabloPlage(i, 1) = Application.WorksheetFunction.Substitute(TabloPlage(i, 1), ' ', '')
Next
RangePlage = TabloPlage
End Sub