Arrondi sur macro excel

Bonjour à tous,

voici une macro qui copie 2 valeurs d'un onglet excel pour les coller dans les premières cellules vides de 2 colonnes d'un autre onglet excel:

Sub test12()
Sheets("Outil %").Unprotect Password:="essai"
Dim PosIn As Long
PosIn = 36
Debug.Print Sheets("Statistiques").Cells(PosIn, 44).Value
While Sheets("Statistiques").Cells(PosIn, 44).Value <> ""
PosIn = PosIn + 1
Wend
Sheets("Statistiques").Cells(PosIn, 44).Value = Sheets("Outil %").Cells(41, 24).Value
Sheets("Statistiques").Cells(PosIn, 45).Value = Sheets("Outil %").Cells(41, 25).Value
Range("B33:Q33").Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sheets("Outil %").Protect Password:="essai", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Le problème est que les valeurs copiées sont arrondies au 2ème chiffre après la virgule. J'ai bien demandé 3 chiffres après la virgule dans "Format cellule".

Par exemple 2.411 devient 2.410; 2.597 devient 2.600

Comment faire pour que les résultats de cette macro soient bien 2.411 et 2.597.

Merci pour votre aide