Supprimer des espaces dans une serie de cellules

Sub Macro1_a()
Dim Fin As Long
'décommenter cette ligne
's'il des lignes vides dans la colonne A
'Range("A1").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
Range("B1").FormulaR1C1 = "=TRIM(SUBSTITUTE(RC[-1],CHAR(160),""""))"
Fin = [A65536].End(xlUp).Row
Range("B1").AutoFill Destination:=Range("B1:B" & Fin)
Range("B1:B" & [B65536].End(xlUp).Row).Value = Range("B1:B" & [B65536].End(xlUp).Row).Value
Columns("A:A").Delete
End Sub

Sub Macro1()
Dim i%
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    Do While Left(Cells(i, 1), 1) = Chr(32) Or Left(Cells(i, 1), 1) = Chr(160)
    Cells(i, 1) = Right(Cells(i, 1), Len(Cells(i, 1)) - 1)
    Loop
Next
End Sub