valeur décimal dans msgbox

Sub test()
Dim Rep As Integer
                       
        Dim H15200 As Double
            H15200 = Range("B9").Value
        Dim H15100 As Double
            H15100 = Range("B10").Value
        Dim H1550 As Double
            H1550 = Range("B11").Value
        Dim H1520 As Double
            H1520 = Range("B12").Value
        Dim H1510 As Double
            H1510 = Range("B13").Value
        Dim H15Total As Double
            H15Total = Range("B14").Value
                        
Rep = MsgBox("Vous avez saisi :" & Chr(10) & _
             "" & Chr(10) & _
             "" & H15200 & " pièces de 2 €" & Chr(10) & _
             "" & H15100 & " pièces de 1 €" & Chr(10) & _
             "" & H1550 & " pièces de 0.50" & Chr(10) & _
             "" & H1520 & " pièces de 0.20 €" & Chr(10) & _
             "" & H1510 & " pièces de 0.10 €" & Chr(10) & _
             "" & Chr(10) & _
             "Le montant total est de " & H15Total & " €", vbYesNo, "")
    If Rep = vbNo Then Range("B9").Select
    If Rep = vbYes Then
    End If
End Sub