XL 2013 Convertir valeurs en format texte en nombre (résolu)

Sub expérience()
Dim Tabl
 Dim DerLgn  As Long
'convertir valeur texte en nombre
 With Worksheets("Total")
DerLgn = .Cells(.Rows.Count, 1).End(xlUp).Row
     Tabl = .Range("A2:E" & DerLgn).Value    
    For i = LBound(Tabl, 1) To UBound(Tabl, 1)
         Tabl(i, 3) = CDbl(Trim(Tabl(i, 3)) * 1)
          Tabl(i, 4) = CDbl(Trim(Tabl(i, 4)) * 1)
           Tabl(i, 5) = CDbl(Trim(Tabl(i, 5)) * 1)
    Next
     .Range("A2").Resize(UBound(Tabl, 1), UBound(Tabl, 2)) = Tabl
 End With
End Sub

Sub expérience()
            
'convertir valeur texte en nombre
    LFin = Range("C" & Rows.Count).End(xlUp).Row
    Range("Z2").FormulaR1C1 = "1"
    Range("Z2").Copy
    Range("C2:E" & LFin).PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
    Range("Z2").ClearContents

End Sub