programmer la souris

Bonjour à tous,

J'aimerai dans les celluels F6 à F15 déposer un "oui" en cliquant sur la cellule.
J'ai écrit cette macro :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 6 And Target.Row < 16 And Target.Row > 5 Then
If Target.Value = "" Then Target.Value = "oui" Else Target.Value = ""
End If
End Sub

ça fonctionne mais si avec le clavier je passe dessus ça le fait aussi
et là ce n'est pas ce que j'aurais voulu.
Il faudrait que ce soit juste avec la souris, alors comment programmer ?
merci et bon week end.