application d'une macro sur collone

Bonjour a tous,

J'ai trouvé cette macro qui supprime les espaces en debut et fin de texte dans une cellule:

' Suppression des espaces à gauche et à droite
Dim i, j
Dim s As String
lastrow = ActiveSheet.UsedRange.Rows.Count
lastcolumn = ActiveSheet.UsedRange.Columns.Count
For i = 1 To lastrow
For j = 1 To lastcolumn
s = CStr(Cells(i, j))
Cells(i, j) = Trim(s)
Next j
Next i

Et je souhaiterai l'appliquer uniquement à la collone C
Pouvez vous me donner la solution?
Merci