Compléter une macro

Bonjour

Je suis une nouille en VBA et j'ai besoin d'aide pour concevoir un planning sur Excel.
Dans le fichier joint, j'ai une grille "cliquable" : lorsque l'utilisateur clique dans une cellule, cela ajoute le caractère "x" dans la case (macro que j'ai piqué sur le net).
Problème : si on sélectionne plusieurs cellule, ça bug.
L'idéal serait que toutes les valeurs sélectionnées prennent la valeur "x" ou, à défaut, qu'il ne se passe rien (l'utilisateur pourra toujours faire un copier coller). Aujourd'hui, j'ai un vilain message d'erreur que je ne sais pas contourner.

Pouvez-vous m'aider ? Merci beaucoup.

Bonjour Fulubert, Joco7915 , le forum,

Problème : si on sélectionne plusieurs cellule, ça bug.

Un essai.....

Sinon, on limite à 1 cellule:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, [Planning]) Is Nothing Then
  If Target.Count > 1 Then Exit Sub
   Target = IIf(Target.Value = "x", "", "x")
 End If
End Sub

Cordialement,