RE-
Si il existe une corélation entre toutes les données tu peut utiliser un if then
ex : si tu ne veux pas modifier les valeur commencant par 5 :
dim m_cellule as range
'selection de la plage
range("A65536").select
range("A2",activecell.end(xlup).select
for each m_cellule in selection
if left(m_cellule.value,1)<>5 then
m_cellule.formula=left(m_cellule.value,4)&0000
end if
next m_cellule
ou celle contenant 12 en troisième et 4° position :
dim m_cellule as range
'selection de la plage
range("A65536").select
range("A2",activecell.end(xlup).select
for each m_cellule in selection
if mid(m_cellule.value,2,4)<>12 then
m_cellule.formula=left(m_cellule.value,4)&0000
end if
next m_cellule
ETC..
A+ wilfried ;op