find and replace: number format not changed by macro

Hi,

If I manually do find "." and replace "," I see the cell change to a number format (number moves to the right)
This is what I need. When I record this macro the number doesn't change to a number format.
Does anyone has an idea?

Macro I use:
Range("F1:F12").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

excel document: attached

Hi !

Selection.Replace What:=".", Replacement:=".", LookAt:=xlPart, _