Vba Supprimer les 3 derniers...

Bonjour,

J'aimerais pouvoir supprimer les 3 derniers caractères de toute une colonne en vba :

J'ai pu trouver un morceau de code intéressant :

Sub test()
Dim c As Range
For Each c In Range("A1", Range("A65536").End(xlUp))
If Len(c) > 2 Then c = Mid(c, Len (c) - 3)
Next c
End Sub

J'ai testé sur une colonne :

Exemple
Exemple
Exemple
Exemple
Exemple
Exemple
Suite

et j'ai obtenu

mple
mple
mple
mple
mple
mple
uite

En plus de me supprimer les 3 premiers (au lieu des 3 derniers) , il ne supprime qu'une seule lettre sur le mot "Suite".

Quelqu'un aurait il une idée?

Je vous remercie d'avance,

M&m