Désolé Eric, ce n'est pas ce que je voulais laisser sous-entendre...
Juste que le fait de le noter me sers a suivre le cheminement de tes explications (ne pas perdre le fil )
Ton aide m'a été fort utile a n'en point douté...
Pour mon dernier point, j'ai fait comme tu me le disais "Reflechir" et ai fait ceci qui semble marcher, je vais l'automatiser...
Sub Dollar()
'
' Dollar Macro
'
'
Cells.Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=True, SearchFormat:=True, _
ReplaceFormat:=False
Selection.Replace What:="$", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=True, SearchFormat:=True, _
ReplaceFormat:=False
End Sub
Merci pour tous ces renseignement, Bertrand