Sub VirronsLesEspacesEtStoppons()
Dim Tablo As Variant
Dim i As Integer
Dim TmpSTring
With Feuil1
Tablo = .Range(.Range('A1'), .Range('A65536').End(xlUp))
For i = 1 To UBound(Tablo)
For x = 1 To Len(Tablo(i, 1))
If Mid(Tablo(i, 1), x, 1) <> ' ' Then
TmpSTring = TmpSTring & Mid(Tablo(i, 1), x, 1)
Else
Exit For
End If
Next x
Tablo(i, 1) = TmpSTring
TmpSTring = ''
Next
.Range(.Range('A1'), .Range('A65536').End(xlUp)) = Tablo
End With
End Sub