Bonjour et bonne année,
Si tu tiens absolument à une procédure VBA, en voici une.
Cordialement.
Public Sub DEMO()
Dim x As String, tbl, I As Long
x = "'00212"
With ActiveSheet
tbl = .Cells(1).CurrentRegion.Value
For I = 1 To UBound(tbl)
tbl(I, 1) = x & tbl(I, 1)
Next I
.Cells(1).Resize(UBound(tbl), 1) = tbl
End With
End Sub