Arrondi de nombre

Bonjour !

J'ai créé un code permettant d'introduire une valeur dans un tableau en appuyant sur un bouton.
Mon problème est que lorsque je rentre une valeur décimale celle-ci est automatiquement arrondie au nombre supérieur.

Auriez-vous une solution pour éviter cela ?
Voici mon code :

Sub Ellipse2_Cliquer()
    Dim rep As Integer
    Dim rep2 As String

    'Configuration de l'inputbox'
    rep = InputBox("Montant ?", "Nouvelle entrée")

 If rep < 0 Then
 Columns(5).Select
 Cells(Rows.Count, 5).End(xlUp).Select
    ActiveCell.Offset(1, 0).Activate
    ActiveCell.Value = rep
    ActiveCell.Offset(0, -1).Activate
    ActiveCell.Value = " "
    ActiveCell.Offset(0, -2).Activate
    ActiveCell.Value = Now
    rep2 = InputBox("Objet ?", "Nouvelle Entrée")
 Cells(Rows.Count, 3).End(xlUp).Select
 ActiveCell.Offset(1, 0).Activate
 ActiveCell.Value = rep2

 ElseIf rep > 0 Then
 Columns(6).Select
 Cells(Rows.Count, 4).End(xlUp).Select
    ActiveCell.Offset(1, 0).Activate
    ActiveCell.Value = rep
    ActiveCell.Offset(0, 1).Activate
    ActiveCell.Value = " "

Merci de votre aide ;)

Bonjour

Cela est évident, non :

Dim rep As Integer