Créer une pioche sous excel 2003

Bonjour,

j'aimerais créer une pioche sous excel.

j'ai fait un petit tableau avec :

- la liste des cartes
- le nb de cartes en main
- le nb de cartes dans la defausse
- le nombre de cartes restant dans la pioche

J'ai réalisé une macro afficher un numero aléatoire ayant une valeur maximum correspondant au cumul de cartes dans la pioche.

ce qui donne par exemple :

cartes----------Main----------defausse---------pioche
Carte 1-----------2----------------3-----------------10
Carte 2-----------0---------------10-----------------5
...
etc etc

le principe étant si le numero aléatoire est ,dans cet exemple, inferieur a 10, c'est la carte N° 1 qui est pioché et si c'est entre 10 et 15 c'est la carte 2.

seulement je n'arrive à incrémenter la valeur dans la colonne main (ce qui diminue automatiquement la colonne pioche.

Pour l'instant ma macro c'est :

[/contents/446-fichier-sub Sub] tirage()
'
' tirage Macro
' Macro enregistrée le 08/04/2014 par hugues
'
' Touche de raccourci du clavier: Ctrl+t
'


    Application.CommandBars("Stop Recording").Visible = True
    Range("K14").Select
    ActiveCell.FormulaR1C1 = "=ROUND(RAND()*(R[5]C[-2]-1),0)+1"

If range(k14) < range(I14) Then
range(H14) = range(H14) +1
End If
    
    
End Sub

K14 étant la case aléatoire de pioche
I14 le nombre de carte dans la pioche
H14 le nombre de carte en main

si quelqu'un à compris ce que je veux et qui saurais me répondre je vous remercie de votre aide !!!