[VBA / Excel] Arrondir à l'entier supérieur

Public Function Ceiling(RoundValue As Currency) As Currency 
    Dim TheValue As Currency 
    TheValue = RoundValue 
    Select Case TheValue - Int(TheValue) 
        Case Is <= 0.25 
            Ceiling = Int(TheValue) 
        Case Is >= 0.5 
            Ceiling = Int(TheValue) + 1 
        Case Is >= 0.26 
            Ceiling = Int(TheValue) + 0.5 
    End Select 
End Function

Sub test()
c = Selection.Row
d = Selection.Column

Range("E5:I5").Select
x = Selection.Columns.Count
Range("E5").Select
For y = 1 To x
a = Selection.Value
If a = Int(a) Then
Selection.Value = a
Else
b = Int(a)
If (a - b) > 0 Then
a = Int(a) + 1
Selection.Value = a
End If
End If
a = ""
ActiveCell.Offset(0, 1).Select
Next
Cells(c, d).Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
If Not Intersect(Target, Range("A1:Z65536")) Is Nothing Then
Call test
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub