Nombre caractère des cellules d'une colonne

Bonjour à toutes et à tous,

je souhaite faire une boucle qui parcourrait toutes les lignes d'une colonne, et en fonction du nombre de caractères, il modifierait avec la fonction Left, pour le moment j'ai ça :

Sub taillemodif()

Dim taille As String

Dim modif As String

i = 2

Sheets("Comparaison Edecla-SF").Select

Do While Cells(c, i).Value <> "" 'Tant que la cellule n'est pas vide

taille = Len(ActiveCell) ' prend la taille

If taille > 13 Then 'condition

modif = Left(taille, 13) 'action

End If

i = i + 1 'Passe à la ligne suivante

Loop

End Sub

Pourriez-vous m'aider et me donner des pistes?

Merci d'avance

Bonjour,

Une suggestion :

Sub taillemodif()
Dim taille As String
Dim CeL As Range

Sheets("Comparaison Edecla-SF").Select
For Each CeL In Range("C:C")    
   taille = Len(CeL) ' prend la taille
   If taille > 13 Then CeL = Left(CeL, 13)
Next
End Sub

Gelinotte

Merci beaucoup, c'était exactement ça!