[XL-2010] probleme avec la fct left sujet

bonjour à tous

mes données:
colonne A
0000114
0000114
0010114
0020114
0050114

Je veux que la colonne B m'envoie la soustraction des 3 nombres de chaque réf et la réf suivant .
j'ai développé une macro pour ce but

Code:

---

For Each cell In Sheets("SUIVI").Range("a2:a" & Sheets("SUIVI").Range("a65536").End(xlUp).Row)
cell.offset(0,1).value=left(cell.offset(1,0),3)-left(cell,3)
next

---

la macro me donne un message d'erreur.
merci à vous.