For each

Bonjour,
Je voudrais faire un for each pour récupérer les 6 premiers caractères
de ma colonne A. Mais je ne récupère que les 6 de A1. Qu'est-ce qui
cloche dans ma formule:

ligne = Range("A1").End(xlDown).Row


For Each LaCellule In Range("B1:B" & ligne)
LaCellule = Left(ActiveCell.Offset(0, -1), 6)
Next LaCellule


merci