Faire un calcul en vba

Sub fois10()
Dim t, i&
  With Sheets("Feuil1")
    .Columns("f").ClearContents
    t = .Range("d1").Resize(Cells(Rows.Count, "d").End(xlUp).Row)
    For i = 1 To UBound(t): t(i, 1) = 10 * t(i, 1): Next i
    .Range("f1").Resize(UBound(t)) = t
  End With
End Sub

Sub PourleFunEtpourCroiserMaPomme()
Dim l&, multiplicateur
multiplicateur = InputBox("...Croissez,multipliez...", "GEN1:28", 10)
l = Cells(Rows.Count, "d").End(3).Row
Range("d1:d" & l).Cut Destination:=Range("F1")
[S1600] = multiplicateur: [S1600].Copy
Range("F1:F" & l).PasteSpecial -4104, 4
Application.CutCopyMode = False
End Sub

Sub Test()
With [F1:F1000]
    .Formula = "=IF(ISNUMBER(D1),D1*10,"""")"
    .Value = .Value
End With
End Sub