VBA rendu de monnaie

bonjour tout le monde , j'ai fait un code qui doit rendre la monnaie lorsqu'on saisi le montant d'achat , cependant le code doit nous afficher en retour la monnaie avec un minimum de pièce , j'ai déjà commencer à écrire un code mais je suis bloqué . quelqu'un pourrait il m'aider s'il vous plait ? merci beaucoup d'avance.

Sub monnaie()
 t = Array(0.01, 0.05, 0.1, 0.25, 0.5) 'tableau des valeurs
M = InputBox("montant d'achat")
r = Rnd()
w = Val(M) - Val(r)
If w > 0 Then
1:
For i = UBound(t) To 0 Step -1
  If w Mod t(i) <> w Then
    x = x & " " & ((w - (w Mod t(i))) / t(i)) & "  " & "billets/pièces de" & " " & t(i) & "euros"
    Exit For
  End If
Next
If (w - t(i)) <> 0 Then
w = w - t(i)
GoTo 1
Else
MsgBox x
Exit Sub
End If
End If
End Sub

Bonjour,

Tu es dans la même classe que Mattbreaker???

non mais c'est bon merci j'ai réussi à le faire .