Tirer un échantillon aléatoire sur Excel 2007

Sub tirage1()
Dim i&, tmp&
Dim f1$, f2$, t&, x&, r&()
    f1 = "Feuil1" 'feuille d'origine.
    f2 = "Feuil2" 'feuille de destination.
    With Worksheets(f1): x = .Range(.Cells(2, 2), .Cells(2, 2).End(xlDown)).Count: End With
    On Error Resume Next
    t = CLng(InputBox("Taille de l'échantillon (max = " & x & ") :", "Taille de l'échantillon...", 0))
    If Err.Number Then Exit Sub
    If t > 0 Then
        t = IIf(t > x, x, t)
        ReDim r(1 To x)
        For i = 1 To x: r(i) = i + 1: Next
        Randomize
        For i = x To 1 Step -1: tmp = r(i): r(i) = r(1 + Int(i * Rnd)): r(1 + Int(i * Rnd(0))) = tmp: Next
        ReDim Preserve r(1 To t)
        Worksheets(f2).Cells.Clear
        Worksheets(f1).Rows(1).Copy Destination:=Worksheets(f2).Cells(1, 1)
        For i = 1 To t
            Worksheets(f1).Rows(r(i)).Copy Destination:=Worksheets(f2).Cells(i + 1, 1)
        Next
    End If
End Sub

Sub tirage2()
Dim i&, j&, tmp&
Dim f1$, f2$, t&, x&, r&(), s()
    f1 = "Feuil1" 'feuille d'origine.
    f2 = "Feuil2" 'feuille de destination.
    With Worksheets(f1): x = .Range(.Cells(2, 2), .Cells(2, 2).End(xlDown)).Count: End With
    On Error Resume Next
    t = CLng(InputBox("Taille de l'échantillon (max = " & x & ") :", "Taille de l'échantillon...", 0))
    If Err.Number Then Exit Sub
    If t > 0 Then
        t = IIf(t > x, x, t)
        ReDim r(1 To x)
        For i = 1 To x: r(i) = i + 1: Next
        Randomize
        For i = x To 1 Step -1: tmp = r(i): r(i) = r(1 + Int(i * Rnd)): r(1 + Int(i * Rnd(0))) = tmp: Next
        ReDim Preserve r(1 To t)
        With Worksheets(f1)
            x = .Range(.Cells(1, 1), .Cells(1, .Columns.Count).End(xlToLeft)).Count
            ReDim s(0 To t, 1 To x)
            For j = 1 To x: s(0, j) = .Cells(1, j).Value: Next
            For i = 1 To t: For j = 1 To x: s(i, j) = .Cells(r(i), j).Value: Next j, i
        End With
        With Worksheets(f2): .Cells.ClearContents: .Cells(1, 1).Resize(t + 1, x).Value = s: End With
    End If
End Sub