J'ajoute que depuis XL2003, il est possible de modifier le séparateur décimal (point/virgule) directement dans les options d'Excel...Sub Traitement()
Dim Cellule As Range
For Each Cellule In ActiveSheet.UsedRange.Cells
Cellule.Value = Val(Cellule.Value)
Next Cellule
End Sub
En espèrant que ça puisse t'être utile...Sub Conversion()
Dim F As Worksheet
Dim Cellule As Range
For Each F In Worksheets
For Each Cellule In F.UsedRange.Cells
If Not Cellule.HasFormula And Cellule.Value Like '*.*' Then
Cellule.Value = Val(Cellule.Value)
End If
Next Cellule
Next F
End Sub