Sub Jeu_Ordi()
Application.ScreenUpdating = False
Range("h3, e2:f2, e3:f3, f5:i10").ClearContents
carte(0) = "as de coeur"
carte(1) = "deux de coeur"
carte(2) = "trois de coeur"
carte(3) = "quatre de coeur"
carte(4) = "cinq de coeur"
carte(5) = "six de coeur"
carte(6) = "sept de coeur"
carte(7) = "huit de coeur"
carte(8) = "neuf de coeur"
carte(9) = "dix de coeur"
carte(10) = "valet de coeur"
carte(11) = "dame de coeur"
carte(12) = "rois de coeur"
carte(13) = "as de carreau"
carte(14) = "deux de carreau"
carte(15) = "trois de carreau"
carte(16) = "quatre de carreau"
carte(17) = "cinq de carreau"
carte(18) = "six de carreau"
carte(19) = "sept de carreau"
carte(20) = "huit de carreau"
carte(21) = "neuf de carreau"
carte(22) = "dix de carreau"
carte(23) = "valet de carreau"
carte(24) = "dame de carreau"
carte(25) = "rois de carreau"
carte(26) = "as de piques"
carte(27) = "deux de piques"
carte(28) = "trois de piques"
carte(29) = "quatre de piques"
carte(30) = "cinq de piques"
carte(31) = "six de piques"
carte(32) = "sept de piques"
carte(33) = "huit de piques"
carte(34) = "neuf de piques"
carte(35) = "dix de piques"
carte(36) = "valet de piques"
carte(37) = "dame de piques"
carte(38) = "rois de piques"
carte(39) = "as de trèfle"
carte(40) = "deux de trèfle"
carte(41) = "trois de trèfle"
carte(42) = "quatre de trèfle"
carte(43) = "cinq de trèfle"
carte(44) = "six de trèfle"
carte(45) = "sept de trèfle"
carte(46) = "huit de trèfle"
carte(47) = "neuf de trèfle"
carte(48) = "dix de trèfle"
carte(49) = "valet de trèfle"
carte(50) = "dame de trèfle"
carte(51) = "rois de trèfle"
Randomize
nb = Int((UBound(carte) * Rnd) + 1)
temp = carte(nb)
On Error Resume Next
k = 4
For i = 1 To 6
k = k + 1
Cells(k, 7) = temp
tmp = Split(Cells(k, 7), " de")(0)
Cells(k, 6) = tmp
Select Case Cells(k, 6)
Case "as": tirage = 1
Case "deux": tirage = 2
Case "trois": tirage = 3
Case "quatre": tirage = 4
Case "cinq": tirage = 5
Case "six": tirage = 6
Case "sept": tirage = 7
Case "huit": tirage = 8
Case "neuf": tirage = 9
Case Else
tirage = 10
End Select
Cells(k, 9) = tirage
Next i
Call Tirage_Ordi
End Sub