application d'une macro sur collone

[Maximom]

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

 

[pierrejean]

Dim i, j
Dim s As String
lastrow = ActiveSheet.UsedRange.Rows.Count
For i = 1 To lastrow
j = 3
s = CStr(Cells(i, j))
Cells(i, j) = Trim(s)
Next i

 

[Maximom]

Merci Pierrejean, c impecable!