Bonjour,
merci de votre réponse, je suis novice je n'ai jamais utilisé la fonction macro.
Je vais farfouiller le site pour voir comment je dois faire! ( si ce n'est pas trop compliqué )
ALT + F11 pour ouvrir l'éditeur VBA, puis Insertion --> module, et y coller ce code :
Sub TirageAleatoireSansRemise()
Dim Tableau() As Integer, Plage As Range
Dim i As Integer, k As Integer, Nb As Integer
Set Plage = Application.InputBox("Sélectionner la plage à compléter", Type:=8) 'Sélection de la plage
If Plage.Columns.Count > 1 Then
MsgBox "Ne sélectionner qu'une seule colonne !"
Exit Sub
End If
Nb = Plage.Rows.Count 'Compte les lignes
ReDim Tableau(Nb)
For i = 1 To Nb
Tableau(i) = i 'Affecte un nombre unique dans une variable tableau
Next
Randomize 'Initialise le générateur de nombres aléatoires
For i = Nb To 1 Step -1 'Parcourir le tableau
k = Int((i * Rnd) + 1) 'Génère un nombre aléatoire
Plage(i) = Tableau(k) 'Affecte le nombre correspondant
Tableau(k) = Tableau(i) 'Reporte le dernier nombre du tableau à la place de celui qui vient d'être ajouté
Next
End Sub
Le code peut-être lancé depuis l'éditeur (bouton "play") ou affecté à un bouton dans ton fichier. Ce fichier doit par ailleurs être enregistré au format ".xlsm".