Format Variable

Bonjour à tous


Dans les variables: Tot; Tot1 et Tot2 le chiffre est toujours sans les chiffres derrieres la virgule .
Range("AR" & N) ) = 2485.2 Tot = 2485
La colonne AR est formatée en Chiffre monétaire ( 0.00 €)meme en la mettant Standard à 2 chiffres cela ne change rien

Private Sub ListBox1_Click()

Dim client As String
Dim N As Integer
client = ListBox1.List(ListBox1.ListIndex)
For N = 2 To Range("C65536").End(xlUp).Row
If Range("C" & N) & " " & Range("D" & N) = client Then Tot = Tot + Range("AR" & N)
If Range("C" & N) & " " & Range("D" & N) = client Then tot1 = tot1 + Format(Range("AK" & N), "0.00 €")
If Range("C" & N) & " " & Range("D" & N) = client Then tot2 = tot2 + Format(Range("AL" & N), "0.00 €")
If Range("C" & N) & " " & Range("D" & N) = client Then XX = Range("A" & N)
Next N

Pourquoi ce phenomene.
Merci de votr aide