Fonction Trim

Bonjour j'ai cette macro à disposition, j'aimerais qu'elle ne me supprime pas les espaces de toute les cellule mais de seulement les cellules comprises après la colonne O est ce possible?

Sub Macro2()

For Each Cell In ActiveSheet.UsedRange

Cell.Value = Application.WorksheetFunction.Trim(Cell.Value)

Next

End Sub

Merci à vous.

Salut le Forum

Comme ceci

Sub Macro2()
Dim Cel As Range
    For Each Cel In ActiveSheet.UsedRange
        If Cel.Column > 15 Then _
           Cel.Value = Application.WorksheetFunction.Trim(Cel.Value)
    Next Cel
End Sub

Mytå

Merci mais lorsque que je le lance il y 'a un bug me disant Next san For

Re le Forum

Tu copies le code intégralement sans rien modifier

Tu ne dois pas supprimer le _

Sub Macro2()
Dim Cel As Range
    For Each Cel In ActiveSheet.UsedRange
        If Cel.Column > 15 Then _
           Cel.Value = Application.WorksheetFunction.Trim(Cel.Value)
    Next Cel
End Sub

Mytå

Oui merci c'était bien ça le problème c'était le tirets du bas.

Merci beaucoup!!!