XL 2016 exécuter dble clic (pas simple clic)

[Usine à gaz]

Bonjour à toutes et à tous,

Me voici avec un nouveau souci pour lequel, malgré mes essais et recherches, je n'arrive pas à trouver la solution.
Dans notre fichier de travail, nous pouvons avoir à cliquer 1 ou double clic sur les cellules pour exécuter un code...
Dans le code "Feuil1" du classeur joint, j'ai deux codes :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("f10")) Is Nothing Then
    [f10] = "2 clics ok"
    [H10].Select
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Not Intersect(R, Range("f10")) Is Nothing And R.Count = 1 Then
    [f10] = "1 clic pas bon"
    [H10].Select
    End If
End Sub

Mon souci est que :
Si je double clic dans ma cellule F10, le simple clic s'exécute en premier.
Je ne vois pas comment faire pour que le double clic soit exécuté et pas le simple clic ?

Auriez-vous la solution ?
Je joins un petit fichier.

Avec mes remerciements,
Je vous souhaite à toutes et à tous une très belle journée,
amicalement,
arthour973,

 

[Efgé]

Bonjour arthour973
Une proposition.

De toutes façons, depuis 2007 il ne faut plus utiliser

 R.Count = 1

mais

 R.CountLarge = 1

Sinon en cas de clic sur la case à l'intersection des lignes et colonnes, le code va planter...

Cordialement

 

[Usine à gaz]

Bonjour Efgé,

Merci pour m'avoir répondu et pour le code qui fonctionne bien
Encore un code que je viens d'apprendre grâce à vous.

Mes sincères remerciements,
Amicalement,
arthour973,

 

[Efgé]

Re
Le plus important est le

R.CountLarge = 1

Cordialement

 

[Usine à gaz]

Re : LOL il me semblait que ça marchait quand même.

Merci bcp pour la rectification
J'en ai tenu compte.
amicalement,
arthour973,