Giusi,

We have abandoned "wildcards" ;-)

Try:

Sub ScratchMacro()
Dim myRng As Range
Dim oCell As Cell
For Each oCell In Selection.Tables(1).Range.Cells
Set myRng = oCell.Range
myRng.End = myRng.End - 1
If Left(myRng.Text, 1) = "." Then
myRng.InsertBefore "0"
End If
Next
End Sub