Sub AleaSuppr()
Const nbrsuppr = 5
Dim t, i&, n&, nfois&, k&, nbr&
t = Range("B14:B62")
For i = 1 To UBound(t)
If t(i, 1) <> Empty Then
n = n + 1
t(n, 1) = Range("b14").Offset(i - 1).Address
End If
Next i
Randomize
For nfois = 1 To IIf(nbrsuppr > n, n, nbrsuppr)
k = 1 + Int(n * Rnd)
Range(t(k, 1)).ClearContents
nbr = nbr + 1
For i = k + 1 To n: t(i - 1, 1) = t(i, 1): Next i
n = n - 1
If n = 0 Then Exit For
Next nfois
MsgBox nbr & " articles supprimés"
End Sub