Option Explicit
Sub Tirage()
Dim Tirag As Object, Nbr As Byte
Randomize Timer: Set Tirag = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = 0: [D2:D6].ClearContents
Do While Tirag.Count < 5
Nbr = Int(49 * Rnd) + 1 'n° compris entre 1 et 49
Tirag(Nbr) = Nbr
Loop
[D2:D6] = Application.Transpose(Tirag.Items) '5 n°
[E2] = Int(10 * Rnd) + 1 'n° compris entre 1 et 10
[H2] = [H2] + 1
End Sub
Sub Cpt0()
[H2] = 0
End Sub