Salut,
La manip' proposée par JC semble correspondre au besoin.
En tous cas elle fonctionne à merveille.
Au cas où Chris souhaiterait quoi qu'il en soit un ' devant chaque chiffre :
Sub Ttexte()
Col = 1
DerLig = Cells(65536, Col).End(xlUp).Row
For i = 1 To DerLig
Cells(i, Col).Formula = "'" & Cells(i, Col)
Next i
End Sub
Bonne fin de semaine
Rai