Problème de code

Bonjour.

J'ai mis ce code dans une feuil VBA:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("B1") = "Bonjour"
If Not Intersect(Range("B2"), Target) Is Nothing Then
    Mots = Split("ça va ?,comment allez vous ?", ",")
    If Target Like "*bonjour*" Then Range("B3") = Mots(Int(Rnd() * 2))
  End If
End Sub

Quand j'ajoute

Option explicit
Option Compare Text

ça affiche "Erreur de compilation. Variable non définie" en surlignant "Mots=" .

Si je déclare la variable: "Dim Mots as String", alors "Target" se surligne et un message d'erreur apparaît : "Erreur de compilation. Tableau attendu".

QUE FAIRE ? Merci de votre aide.

Bonjour,

Dim Mots

ou

Dim mots$()

ou

Dim mots() As String

...conviendront. Mais ta condition If ne renverra jamais rien !

A+

Merci de ta réponse. J'ai mis Dim Mots() as String . Et pourtant ce que je veux obtenir arrive. Alors merci.

Tout le monde peut se tromper...