Double Clique dans celulle= texte aléatoire

Bonjours j'aimerai savoir comment généré un texte aléatoire avec cette commande

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

J'aimerai en faite que en double cliquant sur, exemple la cellule C5 celui si choisi au hasard entre c'est deux texte.

Soi

Au dessu

En dessou

j'aimerai pouvoir appliquer cette fonction dans toute la colone C;C

Merci de votre aide.

Bonjour,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Tablo(0 To 1) As String
    If Target.Column = 3 Then
        Tablo(0) = "Au dessus": Tablo(1) = "Au dessous"
        Randomize
        Target = Tablo(Int(2 * Rnd))
    End If
End Sub

A+

Merci impecable, j'ai ajouter par contre

Cancel = True

qui donne ceci

If Target.Column = 3 Then
    Cancel = True

Le résulta est mieux il m'affiche plus le curseur clignotant.