Supp caractères

bonjour,

je n'arrive pas a créer une macro qui en colonne A ne garderais que les 10 caractères de droite de toute les cellules.

une idée ?

cordialement

Bonjour

code Module

Sub Action()
Dim Cel As Range
For Each Cel In Range("A2", Range("A2").End(xlDown))
If Len(Cel) >10 Then
Cel.Value = Right(Cel,10)
End If
Next Cel
End Sub

Cordialement

cela marche, merci Amadeus