Sub PointVirguleToVirgule()
'
' Transformation des pointsvirgules en virgules
'
'La cellule active doit être dans la zone à traiter
Selection.CurrentRegion.Select
Selection.Replace What:=";", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End Sub