Sélection aléatoire plus archivage

Bonjour à tous !

Tout d'abord je vous souhaite une excellente année 2018 !!! Meilleur voeux à tous ....

Je souhaite réaliser un fichier permettant d'effectuer une sélection aléatoire sans doublon d'un échantillon variable.

Je vous joins mon fichier de sélection en pièce-jointe.

La macro utilisée affiche systématiquement le message suivant :

Si on clique sur Fin puis que l'on recommence, là cela fonctionne... Avez-vous des idées pour corriger le bug initial.

Enfin l'Archivage des sélections s'effectue en Feuille 2, en ligne alors que j'aimerais que celui-ci s'effectue en colonne.

Avez-vous des propositions pour corriger le code ?

Je vous précise que j'utilise une version Excel 2011 pour Mac

En vous remerciant par avance pour votre aide....

Bonjour

excellente année 2018 à vous également

Essayez comme ceci (si j'ai bien compris votre demande)

Sub aargh()
Dim ta()
With Sheets("feuil1")
    dl = .Cells(.Rows.Count, 3).End(xlUp).Row
    t = Application.Transpose(.Range("C4:C" & dl))
    nt = UBound(t)
    n = Val(InputBox("Echantillon sŽlectionnŽ ?"))
    ReDim ta(1 To n)
    For i = 1 To n
        q = Application.RandBetween(0, nt)
        ta(i) = t(q)
        t(q) = t(nt)
        nt = nt - 1
    Next i
    .Range("G:G").ClearContents
    .Range("G3").Resize(n) = Application.Transpose(ta)
    dlh = Sheets("feuil2").Cells(.Rows.Count, 2).End(xlUp).Row + 1
    Sheets("feuil2").Cells(dlh, 1) = Now
    .Range("G3").Resize(n).Copy
    Sheets("feuil2").Cells(dlh, 2).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = off
End With
End Sub

Attention à bien mettre le . devant tous les ROWS.COUNT

Je n'ai pas testé sous MAC mais je pourrai le faire ce soir si le problème est toujours présent pour vous

Si ok, veillez à cliquer sur le V en haut à droite pour cloturer le fil

Cordialement