Lancer des userforms aléatoirement

Sub kies()
    Dim TAleat() As Long, UF
    
        Menu.Show
    
    ReDim TAleat(1 To 6)
    'appel fonction remplissage
    TAleat() = Aleat_TQuestion()
    For Question = 1 To 6
        'choix UF en fonction table TAleat()
        UF = Choose(TAleat(Question), "Question1", "Question2", "Question3", "Question4", "Question5", "Question6")
        'Affichage UF
        VBA.UserForms.Add(UF).Show
    Next
End Sub

'remplissage tableau aleatoire sans doublon
Function Aleat_TQuestion()
    Dim i As Long, n As Long
    Dim numQuestion(1 To 6) As Long
    Dim numCollection As New Collection
    'Creation et utilisation d'une collection pour obtenir
    'une table de numeros sans doublon
    With numCollection
        For i = 1 To 6
            .Add i
        Next
        For i = 1 To 6
            'nombre aleatoire de 1 a 6 avec -1 par tour: 5,4.......
            n = Rnd * (.Count - 1) + 1
            'ecriture table des  numero de questions
            numQuestion(i) = numCollection(n)
            'suppression de l'Item(ici un nombre) de la collection
            'pour ne pas l'avoir une deuxieme fois
            .Remove n
        Next
    End With
    Aleat_TQuestion = numQuestion()
    Set numCollection = Nothing
End Function