Supprimer du texte dans des cellules

Bonjour,

En attendant de créer avec votre aide un VBA pour exécuter un tirage aléatoire de A vers C et D, je me demande comment supprimer (Excel ou VBA) du texte dans des cellules de la colonne A quand en colonne C ou D, des cellules contiennent le même texte ?

Je m'explique :

Au début, j'écris les noms des participants au fur et à mesure en colonne A (Lolo en A1, Jef en A2, etc,...).

Ensuite, avec "=INDEX(A$1:A$150;ALEA.ENTRE.BORNES(1;150))" qui se trouve en I2, je tire au sort aléatoirement (via le bouton F9) les noms de la colonne A que j'écris en colonne C puis en colonne D; et ainsi de suite.

Pour savoir où j'en suis, il faudrait que dans la colonne A, les noms déjà tirés au sort, s'effacent (action d'un bouton vba).

La colonne A fait au maximum 150 lignes, avec 150 noms maxi et les colonnes C et D reçoivent à terme au maximum 75 noms chacune.

Merci pour votre aide...

Bonjour

Je te joins un fichier ...vois

Bon courage

Bonjour

Bonjour à tous (et toutes)

Une variante à tester.

Option Explicit

Dim ln&, lnMax

Sub Aleatoire()
        lnMax = Range("A" & Rows.Count).End(xlUp).Row
        ln = Int((lnMax - 1 + 1) * Rnd + 1)
        Range("I2") = Range("A" & ln)
        Cells(ln, 1).Interior.Color = xlNone
End Sub

Sub RAZ()

    Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Interior.Color = RGB(221, 235, 247)
End Sub

Bye !

Merci Patty 5046. C'est SUPER.

Merci à GMB également...