Effacer de façon aleatoire des cellules

Option Explicit
'https://excel.developpez.com/faq/?page=FonctionsAleatoires#CellulesAleatoiresPlage
Sub Test()
    RemplissageAleatoire Range("A1:D5"), Range("G2")
End Sub
 Sub RemplissageAleatoire(Plage As Range, NbCroix As Integer)
    Dim Tableau As Collection
    Dim Cell As Range
    Dim i As Integer, j As Integer
 
    'Vérifie si le nombre de cellules est supérieur au nombre de
    'croix à insérer.
    If Plage.Cells.Count < NbCroix Then Exit Sub
 
    'suppression des anciennes données
    'Cells.Clear
    'Plage.Interior.ColorIndex = 7
 
    Set Tableau = New Collection
    For Each Cell In Plage
        Tableau.Add Cell.Address
    Next Cell
 
 
    For j = 1 To NbCroix
        Randomize
        DoEvents
        i = Int((Tableau.Count * Rnd)) + 1
 
        Range(Tableau(i)) = ""
        Tableau.Remove i
        DoEvents
    Next j
 
End Sub