Convertir données en automatique

Sub Macro2()
Dim r As Range
With ActiveSheet
    Set r = .UsedRange
        With .[IV65536]
            .Value = 1
            .Copy
            r.PasteSpecial Paste:=xlAll, Operation:=xlMultiply, SkipBlanks:=False, Transpose:=False
            .Clear
        End With
End With
End Sub

Option Explicit

Sub Convertir()
    Feuil1.UsedRange.Copy
    Feuil2.Range("A1").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

Option Explicit

Sub Convertir()
    Feuil1.UsedRange.Copy
    Feuil2.Range("A1").PasteSpecial Paste:=xlPasteValues
    Feuil2.UsedRange.Replace What:=",", Replacement:=".", LookAt:=xlPart
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

Sub convert_cell_chiffres()
Dim i As Long
For i = 1 To 50
Select Case i
Case 3, 6, 9 To 23, 29 To 38, 43 To 46
Columns(i).TextToColumns Destination:=Cells(1, i)
End Select
Next
End Sub

Sub Convert_TOUT_OK_v3()
Dim i As Long
[IV65536] = 1
Application.ScreenUpdating = False
For i = 1 To 50
Select Case i
Case 3, 6, 9 To 23, 29 To 38, 43 To 46
Columns(i).TextToColumns Destination:=Cells(1, i)
Case 1, 2, 4, 7, 27, 28, 39 To 42, 47 To 50
With [IV65536]
    .Copy
    Range(Cells(1, i), Cells(65536, i).End(xlUp)).PasteSpecial xlAll, xlMultiply
End With
Case 5
Columns(i).TextToColumns Destination:=Cells(1, i), _
DataType:=xlDelimited, FieldInfo:=Array(1, 4)
End Select
Next
[IV65536].Clear
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub