Remplir un tableau avec formatage particulier

Option Explicit
Dim i As Byte

Sub RemplirTableauB()
Range("C3:C17").Copy
Application.ScreenUpdating = False
    With Sheets("calcul")
        .Range("F5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
            For i = 5 To 19
                .Cells(i, 6) = Replace(.Cells(i, 6), ".", ",")
                .Cells(i, 6) = Replace(.Cells(i, 6), " Sec,", "")
                .Cells(i, 6) = Replace(.Cells(i, 6), " g/l", "")
                .Cells(i, 6) = Replace(.Cells(i, 6), "%", "")
                .Cells(i, 6) = Replace(.Cells(i, 6), " ", "")
                .Cells(i, 6) = .Cells(i, 6) * 1
            Next i
    End With
    Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Sub RemplirTableauB()
For Each X In Feuil1.[C3].CurrentRegion
    Set Dest = Feuil2.[F60000].End(xlUp).Offset(1, 0)
    If X.NumberFormat = "0%" Then
        Dest.Value = X.Value
    Else
        Dest.Value = Split(Trim(X.Value), " ")(0)
    End If
Next
End Sub

Sub RemplirTableauB2()
For Each X In Feuil1.[C3].CurrentRegion
    Feuil2.[F60000].End(xlUp).Offset(1, 0).Value = IIf(X.NumberFormat = "0%", X.Value, Split(Trim(X.Value), " ")(0))
Next
End Sub

Sub RemplirTableauB2()
For Each X In Feuil1.[C3].CurrentRegion.SpecialCells(xlCellTypeVisible)
    Feuil2.[F60000].End(xlUp).Offset(1, 0).Value = IIf(X.NumberFormat = "0%", X.Value, Split(Trim(X.Value), " ")(0))
Next
End Sub

Sub RemplirTableauB()
i = 1
 For Each X In Feuil1.[C3].CurrentRegion.SpecialCells(xlCellTypeVisible)
     If i < 16 Then Feuil2.[F60000].End(xlUp).Offset(1, 0).Value = IIf(X.NumberFormat = "0%", X.Value, Split(Trim(X.Value), " ")(0))
     i = i + 1
 Next
 End Sub