Sub Remplace()
T = Range(Cells(4, 1), Cells(Cells(65536, 1).End(xlUp).Row, Cells(4, 256).End(xlToLeft).Column))
For i = 1 To UBound(T, 1)
x = Len(T(i, 1))
' Format texte
T(i, 1) = WorksheetFunction.Substitute(T(i, 1), Left(T(i, 1), 3), "'0")
' ou
' format numérique
' T(i, 1) = WorksheetFunction.Substitute(T(i, 1), Left(T(i, 1), 3), "0")
Next i
'Le tableau entier : est recopier au même emplacement
Cells(4, 1).Resize(UBound(T, 1), UBound(T, 2)).Value = T
End Sub