You wouldn't use Right. You would use left

lCol = 2
for each cell in Range(Cells(1,lCol),Cells(rows.count,lCol).End(xlu p))
cell.Value = Left(Cell.Value,len(Cell.Value)-1)
Next

--
Regards,
Tom Ogilvy


"Franck" wrote in message
...
how to use the right function with vba to remove the last caracter of the
data of my colums

thanks