Sub TireLignes()
Dim derlig As Long, d As Object, i As Long, lig As Long
derlig = Feuil1.Range("A65536").End(xlUp).Row
Set d = CreateObject("Scripting.Dictionary")
Randomize
Application.ScreenUpdating = False
Feuil2.Cells.ClearContents
For i = 2 To [COLOR="Red"]13[/COLOR]
1 lig = 2 + Int((derlig - 1) * Rnd) 'nombre aléatoire de 2 à derlig
If d.exists(lig) Then GoTo 1 'si déjà tiré on retire
d.Add lig, CStr(lig)
Feuil1.Rows(lig).Copy Feuil2.Rows(i) 'copie de la ligne
Next
End Sub